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INTRODUCTION 


Welcome to Getting Started on your Oric. You have in 
your hands a guide to one of the most advanced pieces of 
equipment you can buy today — a microcomputer. 


This book will take you, step by step, through BASIC 
programming, showing you many features of the Oric 1. 
We will explain its colour, sound and high resolution 
graphics in detail so that you will be able to include all 
three in your own programs comfortably. And you will be 
able to write programs, we assure you. 


Learning BASIC on the Oric is going to be painless, in 
fact, with this book, it’s going to be fun. The Oric uses a 
version of BASIC called Microsoft, a version widely 
accepted as standard on most microcomputers, so if you 
decide to buy another computer after you’ve learnt to use 
the Oric then you will not have too much trouble making 
the change. 


Come on and join us now, as together we discover how we 
can make the most of your Oric 1. 


Tim Hartnell 
Peter Shaw 
London, August 1983 


CHAPTER ONE 
DISCOVERING THE 
KEYBOARD 


You’ve just bought a great computer, and in this book we’re 
going to show you how to get the most out of it. Don’t worry if 
this is the first computer you have ever owned. We’re going to 
take things slowly, and in small steps, so you’Il have no trouble 
keeping up with us. 


READ THE BOOK WITH YOUR COMPUTER 
TURNED ON 


It is vital that you have the computer turned on at all times when 
you read this book, (or at least the first time you read through 
it). This is an action book, and unlike a novel, it is not designed 
simply to be read. This book is like a book on how to drive, you 
can never learn about changing gears, and how it feels to handle 
a car in traffic, without actually taking command of a vehicle. 
So it is with your computer and this book. Try out each new 
command and function when it is explained to you, experiment 
with the games and other programs, and you’ll find you’re 
learning to program without even trying. 


THE KEYBOARD 


First we have to find our way around the keyboard. It looks like 
a small typewriter keyboard with a few extra keys, and this is 
what it is. It is surprising how quickly it will become familiar to 
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you, in fact, by the time you have worked through this book 
you will probably be able to type with some competence. 


THE BASIC KEYBOARD 


Leaving out the extra keys for a moment, let’s look at the main 
part of the keyboard. 


This part is known as a QWERTY keyboard. If you look at the 
second row down you’ll see the first six letters spell QWERTY. 
Try typing something in, like your name. As you type, the 
letters will appear on the screen and you will also hear a small 
beep every time you press a key, this is so that you can type 
something in and, without looking at the screen, you know it 
has been entered. Practice as much as you can with the 
keyboard, sentences like The quick brown fox jumped over the 
lazy dogs are ideal, because they use every letter of the 
alphabet. Once you are happy with the QWERTY keyboard we 
can then move on to the extra keys. 


DELETE 


By now the screen may be looking pretty crowded, and 
something like a disaster area. If you look at the right hand end 
of the second row you’ll see a key marked DEL, this is short for 
DELETE. If you hold down this key it will move back over 
what you typed, erasing as it goes. 


Another way of clearing up ‘rubbish’ like this is to turn off the 
power for a short while, but this is not advised as it causes the 
contents of the memory to be erased. 


THE SHIFT KEYS 


At both ends of the fourth row of keys down you’ll find keys 
marked SHIFT. Their effect is much the same as it is on an 
ordinary typewriter, when you’re in lower case mode, (we’ll 
talk about that later), if you press shift and a letter key then you 
get the letter in upper case. If you press shift and a numeric key 
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then you get the symbol above the key, i.e. press SHIFT/2 you 
will see the @ symbol appear on the screen. 


THE CURSOR KEYS 


On either side of the space bar you’Il see four curious looking 
keys with arrows above them. These keys are called cursor 
keys. A cursor is that flashing blob which has traced your 
typing on the screen, this is there to tell you where the next 
character you type will appear on the screen. Anyway, to get 
back to the point of those keys, try pressing the key with the 
down arrow above it. Did you expect that to happen? Try 
pressing the other cursor keys, you should know what will 
happen now. 


CHAPTER TWO 
PRINTING THINGS ON 
THE SCREEN 


THE RETURN KEY 


The key that you’ll probably use most often is RETURN. 
Whenever you’re typing information into the computer, it will 
wait until you press RETURN before acting on the material 
you’ve entered. If you’ve written a program line, (more of that 
later), it will ignore that line even if you have pressed 
RETURN, i.e. if you type in PRINT 2 and then RETURN the 
computer will display: 


PRINT 2 
Z 


But if you type 18 PRINT 2 and then press RETURN the 
computer will display: 


By adding a number in front of the command you have made it 
a program line. The computer will not act upon the command 
until you type RUN, type RUN now, do you see what has 
happened? The computer has RUN your first program, we will 
now explain what your program is. 


THE PRINT COMMAND 
Type LIST and the RETURN, you should see your program: 
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1@ PRINT 2 


As we explained before, the number 19 is a line number, if you 
type in 


5S PRINT 1 


then type LIST, (LIST is acommand to list your program), you 
should see: 


S PRINT 1 
1@ PRINT 2 


Isn’t that good, the computer puts line 5 in front of line 19, 
clever huh? Now look at that word following the line number, 
PRINT. If you RUN the program then you should see how 
PRINT works. It takes the information which follows the 
PRINT command, with a few exceptions which we’ll learn 
about ina moment, and PRINTs this on the screen, which after 
all is exactly what you’d expect it to do. 


But your computer is cleverer than that. If the word PRINT is 
followed by a sum, it will work out the answer before it 
PRINTs, and it will PRINT the answer. Try it now. Enter the 
following line: 


PRINT S+3 


You should see the figure 8 appear. The computer added 5 and 
3 together, as instructed by the plus (+ ) sign, then printed the 
result on the screen. It can do subtraction as well. Type in this, 
and remember to type RETURN afterwards. 


PRINT 8-3 


Now the computer can — of course — do a wide range of 
mathematical tasks, many of them far more sophisticated than 
simple addition and subtraction. But, there is a slight hitch. 
When it comes to multiplication, the computer does not use the 
x sign which you probably used at school. Instead, it uses an 
asterisk (*), and for division, instead.of + the computer uses a 
slash sign (/). 
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DOING MORE THAN ONE THING AT ONCE 


The computer is not limited to a single operation in a PRINT 
statement. You can combine as many as you like. Try the next 
one, which combines a multiplication and a division. Type it in, 
then press RETURN to see the computer evaluate it: 


PRINT 7x875 


This seems pretty simple. Just type in PRINT followed by the 
material you want it to PRINT, and that’s all there is to it. But, 
it’s not as simple as that! Try the next one out and see what 
happens: 


PRINT TESTING 


That doesn’t look too good. Instead of the word TESTING 
we’ve got the number 9. To explain briefly what has happened, 
let’s consider the pocket calculator. On your calculator you can 
possibly store away numbers by pressing the Memory Plus 
button. On your Oric you can also store away a number, in fact 
you can store away quite a few numbers. When you told the 
computer to PRINT TESTING you were asking the computer 
to print one of the numbers that it had stored away in its 
memory. But, as you hadn’t told the computer what TESTING 
actually equals then it takes the value to be 8. Foolish machine. 
Computers may be very, very clever machines, but they need to 
be led by the hand, like a very stupid child who has to be told 
exactly what to do. Give them the right instruction and they will 
do the right thing. But give them the wrong instruction or — 
even worse — confuse them, and they will give up in despair, or 
do something quite alien to your intentions. 


STRINGS 


If you want the computer to print the word TESTING you must 
put quote, or speech marks around the word, like this: 


PRINT "TESTING" 


This time when you press RETURN the word TESTING will 
appear on the screen. This is worth remembering. When you 


CHAPTER TWO 7 


want the computer to print out a word, or a whole lot of words, 
symbols, spaces and numbers, you need to put quote marks 
around the material you want to print. Information held in this 
way, between quote marks, is called a most peculiar name in 
computer circles. The jargon for information enclosed in quote 
marks is a string. So, in our example above, the word 
TESTING, when enclosed by quote marks, is called a string. 


OUR SECOND PROGRAM 


Type the following into the computer. Notice each line starts 
with a number, as explained before, this is a /ine number. 
Remember to press RETURN at the end of each line. 


1@ PRINT “JACK AND JILL" 
20 PRINT “WENT UP THE HILL" 
SO: PRINT “TG FETCH A RPATE® 
4Q PRINT “OF WATER" 


When you have typed the whole program into the computer, 
type LIST, press RETURN and check that the program on the 
screen is the same as the one listed above. RUN the program as 
you did before, did the computer do what you expected it to do? 
If it did something drastically different, i.e. gave you an error 
message, then check that you typed everything in correctly, and 
RUN the program again. 


GETTING THINGS INTO ORDER 


Look at the program again, do you notice how line 20 follows 
line 10? And line 3@ is before 40? Of course you would expect 
no less from your computer, after all, it can count! But what if 
we typed in another line, say line 25. The computer would 
rearrange the list of instructions so that line 25 came between 
line 20 and line 30. This is useful if you forgot an instruction, or 
you want to add a line, it is also why most programs are 
numbered in steps of 10. 


Type in the following line. 
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25 REM A LINE IN THE MIDDLE 
Now, LIST the program, it should look like this: 


1@ PRINT “JACK AND JILL" 
20 PRINT “WENT UP THE HILL" 
25 REM A LINE IN THE MIDDLE 
38 PRINT "TO FETCH A PAIL" 
4Q@ PRINT “OF WATER" 


As you can see, the line numbered 25 has moved itself into the 
correct position in the program, between lines 20 and 30. Now 
RUN the program. 


MAKING REMARKS 


You should find that the new line, line 25, has not made any 
difference at all to the running of the program. Why not? Why 
did the computer decide to ignore line 25? The word REM 
stands for remark and is used within programs when we want to 
include information for human use only. You’ll find REM 
statements scattered throughout the programs in this book. In 
each and every case the computer ignores the REM statements. 
They are only there for your convenience, for the convenience 
of the programmer, or for someone else reading the program. 


Often you’ll use REM statements at the beginning of the 
program, like this one: 


S REM JACK AND JILL POEM 


You may wonder why this would be necessary. After all, it is 
pretty obvious that the computer is holding the Jack and Jill 
poem, even without the line 5 REM statement. You are right. 


In this case there is little point in adding a title REM statement 
to this program. But have a look at some of the programs 
further on in this book. Without REM statements you’d have a 
pretty difficult time trying to work out what the program was 
supposed to do. 
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REM statements are often scattered throughout programs. 
There they serve to remind the programmer what each section is 
supposed to do. Once you’ve been programming a while, you’ll 
be amazed at how many programs you’|l collect in listing form 
which — when you go back to them in a month or so — will be 
totally obscure. You won’t have a clue how the program works 
or, even more important, what on earth it is, or what it is 
supposed to do. This is where you will find REM statements 
invaluable. 


It is worth getting into good habits early as a programmer. So, 
we suggest you start right now adding REM statements to your 
programs. If you come across programs, or program 
fragments in this book, which you want to keep, and which do 
not have REM statements, get into the habit of using REM 
statements by adding them to these programs. And make sure 
you use them in your original programs. 


BACK TO PRINT 


Let’s return to the PRINT command. Empty your computer’s 
memory by typing NEW and then PRESS return, you have lost 
the contents of the computer’s memory, NEW is a pretty 
drastic command, and should only be used when you are sure 
that you’ve finished with a program. You’re ready for another 
program, but first let’s learn a little trick which keeps things 
tidy. Press the CTRL and at the same time press the L key. The 
screen should have suddenly cleared, if it did not then send your 
Oric back to Tangerine for immediate replacement! 


MORE PRINT STATEMENTS 
Type in the following program and RUN it: 


10 PRINT 1,2 
15 PRINT 

2@ PRINT 135233 
25 PRINT 

38 PRINT “ORIC" 
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35 PRINT 

4@ PRINT “23+34=" 523+34 

45 PRINT 

5S@ PRINT "“2xk3=" 52x3 

35 PRINT 

6@ PRINT 3°5 

65 PRINT 

7@ PRINT “THE ANSWER IS "323+5-776 


You should get something like this on the screen: 


1 2 

|. -22 3 

ORIC 

23+34=57 

2xk3=6 

243 

THE ANSWER IS 26, 8333334 
Now there’s a lot we can learn from this program. 


Firstly, as in the Jack and Jill program, the computer executes a 
program line by line, starting at the lowest number and 
proceeding through the line numbers in order until it runs out 
of numbers, when it stops. (You’ll discover that this orderly 
progression of line numbers does not always apply, as there are 
ways of making the computer execute part of a program out of 
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strict numerical order, but for the time being it is best to assume 
that a program will be executed in order). 


Look at the first line of your program, line 18. You can see that 
there is acomma between the 1 and the 2. This has the effect of 
getting the computer to print the first number (1) on the left 
hand side of the screen, and the second number (2) five spaces 
further on. When you use a comma like this to divide things 
which follow a PRINT statement (but not when the commais in 
a string, that is between quote marks), it divides the screen into 
parts, each part five spaces long, printing the information 
which follows the comma in the next available part. 


The second line of the program, line 15, is just the word PRINT 
with nothing following it. This has the effect, as you can see in 
the printout (and on the television screen) of putting a blank 
line between those lines which do include information after 
them. (The same comment applies to lines 25, 35, 45, 55 and 
65). 


Line 28 has three numbers (1, 2 and 3) separated not by commas 
(as in line 18) but by semicolons. This has the effect of putting a 
single space between the numbers. This single space only 
applies to numeric information, when you come to strings then 
there are no spaces put in between the information. We suggest 
you experiment by using the semicolon. 

Line 3@ is the word ORIC and this isa.......... If you 
mentally said string when you came to those dots, then you’re 
learning well. The word is a string, in computer terms, because 
it is enclosed by quote marks. 


Line 49 is rather interesting. For the first time we have included 
numbers and a symbol (=) within a string. As you can see, the 
computer prints exactly what is within the quote marks, but 
works out the result of the calculation for the material outside 
the quote marks, giving — in this case — the result of adding 23 
to 34. Try to remember that the computer considers everything 
within quote marks as words, even if it is made up from 
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numbers, symbols, or even just spaces, or any combination of 
them, while it counts everything that is not within quote marks 
in a PRINT statement as a number. 


So line 4 treats the first part, within quote marks, as a string, 
and the second part, outside quote marks, as numerical 
information which it processed. 


In line 5@ we see the asterisk (*) used to represent multiplication 
and the computer quite reasonably works out what 2 times 3 is 
and prints the answer 6. In line 66 we come across a new, and 
strange sign, a little upward arrow. This means ‘raise to the 
power of’ so line 68 means PRINT 3°. Now, it is pretty difficult 
for acomputer to print another number halfway up the mast of 
another number, so we use the upward arrow to remind you (by 
pointing upward) that it really means ‘print the second number 
up in the air’. You probably know that 7? is read as ‘seven 
squared’. It means raise seven to the second power. Ina similar 
way, 3° means raise three to the fifth power which is exactly 
what the computer does in line 60. 


The final line of this program combines a string (‘the answer 
is’) with a numerical information (23 + 5—7/6). You can see 
that, as expected, the computer works out the sum before 
printing the answer, and prints the string exactly as it is. Look 
closely at the end of the string. You’ll see there is a space there. 


After the closing quote is a semicolon (;) which, as we learned in 
line 20, as far as strings are concerned, joins various elements 
of a PRINT statement together. This semicolon means that the 
result of the calculation is printed up next to the end of the 
string. However, if there were no space within the quote marks, 
the result of printing line 76 would be: 


THE ANSWER I1S26, 8333334 


As you can see, this is by no means as clear as the original 
version. 
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That brings us to the end of the second chapter of the book. 
We’re sure you’re pleased at how much you’ve learned so far, 
and are looking forward to continuing your learning. But now 
you’ve earned a break. So take that break, and then come back 
to the book to tackle the third chapter. 


CHAPTER THREE 
RINGING THE 
CHANGES 


It’s all very well getting things onto the computer’s screen, as 
we learnt to do in the last chapter, but from time to time you’ll 
discover we need to be able to get printed material offthe screen 
during a program. Wecan’t use that little trick we learnt before 
because the computer can’t reach out of the case and press the 
necessary keys. What we need is a command that will clear the 
screen. We can do this with the command CLS, which stands 
for Clear the Screen. 


CLEAR THE SCREEN 


Enter the following program into your computer and run it. 


1@ PRINT “TESTING 
2@ INPUT AS 
38 CLS 


When you run the program, you’ll see the word TESTING 
appear on the screen, more or less as you’d expect: 
TESTING 


? 


However, can you see the flashing cursor below the word 
TESTING and behind a question mark. 
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This is an input prompt. An input prompt, which appears in a 
program when the computer hits the word INPUT, means that 
the computer is waiting for you to enter something from the 
keyboard. You’ll recall that we spoke earlier about strings and 
about how they were anything which was enclosed by quotes. 
The computer signals that it is talking about a string by using 
the dollar sign. So line 20 is waiting for a string called A$ to be 
INPUT by you. 


So what are we going to do about that flashing cursor? You will 
have to type something in, your name will do, it doesn’t make 
much difference to the way the program runs. 


When you have finished typing your message, remember to 
press RETURN, or the computer won’t know that you’ve 
finished. 


Once you’ve done this the computer moved along to line 30 
where it found the instruction CLS. As you know this means 
Clear the Screen, and what did your program do? yes it cleared 
the screen. 


Run the program a few more times, until you’ve got a good idea 
of what is happening, and you’ve followed through — in your 
mind — the sequence of steps the computer is executing. 


DOING IT AUTOMATICALLY 


Instead of waiting for you to enter something from the 
keyboard, you can write a program which clears the screen 
automatically, as in our next example. Enter this next program 
into your computer, type RUN and press RETURN, and sit 
back for the amazing Flashing Word demonstration. 
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19 PRINT "“AUTOTESTING" 
20 FOR A=1 TO 198 

3@ NEXT A 

4@ CLS 

5@ FOR A=] TO 180 

6@ NEXT A 

7@ RUN 


In this program you’ll see the word AUTOTESTING 
alternately flashing off and on at the top of the screen. What’s 
happening here? Let’s look at the program, and go through it 
line by line. 


Firstly, as you know, line 19 prints the word AUTOTESTING 
on the screen. Next, the computer comes to line 20, where it 
meets the word FOR. We’ll be learning about FOR/NEXT 
loops (as they are called) in detail in a later chapter, but all you 
need to know here is that the computer uses them for counting. 
In this program line 20 and 38 (FOR is in line 20 and NEXT in 
line 3@) tells the computer to count from one to one hundred, 
before moving on. As you can see, it does this counting pretty 
quickly. 


So, it waits for a moment while counting from one to a 
hundred. Then it comes to line 49, which is the command CLS, 
which tells the computer to clear the screen. It does this, and 
AUTOTESTING disappears from the screen. The computer 
then encounters, in lines 50 and 60, another FOR/NEXT loop, 
so it waits a while as it counts from one to one hundred again. 
Continuing on in sequence, it comes to line 70, where it finds 
the word RUN. Now, as you know, you get the computer to 
execute a program by typing in RUN, followed by RETURN. 
But RUN is a command, so there is no reason why you cannot 
use it within a program, as we have in line 79 of this program. 
When the computer comes to line 70, it obeys the command, 
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and RUNs the program again, so that it goes through the 
program again and again. 


CHANGING PROGRAM LINES EASILY 


Your computer is provided with an EDIT function, which 
makes it very simple to change the content of the lines within a 
program. Pull the plug out on the last program, then enter the 
following program into your computer. Do not RUN the 
program. We want to explain something about the program 
before you do: 


tO REM AN EDIT TEST 
2@ PRINT "TESTING" 
3Q PRINT “EDIT TESTING" 


Enter as a direct command EDIT 19. You should see line 18 
appear on the screen, just below your last command. Now, 
using the cursor keys, which as we said before, are on either side 
of the space bar, move the cursor so that it is flashing just 
before the number 19, like this: 


H1@ REM AN EDIT TEST 


You will now have to enter the part of this line you want to keep 
into the computer. To do this, put one finger on the CTRL key, 
and another finger on the A key. The cursor should move over 
one position. Keep pressing this key until the cursor is flashing 
over the T in TEST. Then type over the rest of the line changing 
TEST for CHANGE. When you have typed in CHANGE, 
press RETURN and LIST the program. It should now look like 
this: 

1@ REM AN EDIT CHANGE 

20 PRINT “TESTING" 

38 PRINT “EDIT TESTING" 

Before you read on, take some time changing lines 26 and 30 as 
well as line 18. But remember that you will have to put speech 


marks around anything you change in the last two lines, or you 
will be told that you have made a mistake. 
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GETTING THE PROGRAM BACK 


We have already covered the word LIST, but there are a 
number of useful things that you can do with it. When you tell 
the computer to LIST the program, you needn’t LIST all of it, 
_ you can list part of it, or just a single line. To list just one line 
type LIST, followed by the line you want to examine. If you 
want to list just part of your program then type LIST, followed 
by the first line number, a minus sign, and then the last line you 
want to see, 1.e.: 


LIST 20-380 


You can also omit the first or last number, i.e. if you want to list 
the program to line 20 then type: 


LISI =28 

If you want to list the program from line 20 onwards then type: 
LIST 2@8- 

USING A PRINTER 


There are two commands which trigger the printer, and they are 
very simple to use and remember. They are LPRINT, which 
stands for Line Print, and LLIST, which stands for Line List. 
If you are thinking that you have seen commands similar to 
those before somewhere, then you’d be right. The first one 
LPRINT, has the same effect as PRINT, but only sending the 
information which follows to the printer, instead of the screen. 
The second command — LLIST — LISTs the whole program 
on the printer, so that you have got a permanent copy of your 
program. 


CHAPTER FOUR 
DESCENT INTO 
CHAOS 


It’s time now to start developing some real programs. You’ll 
notice that from this point in the book there are some rather 
lengthy programs. Many of them will contain words from the 
BASIC programming language which have not been explained. 
This is because, as programs become more complex (and far 
more satisfying to run) it becomes more and more difficult to 
keep programming words which have not been explained out of 
the program. However, it is not a major problem. 


Weare working methodically through the commands available 
onthe computer and, in due course, all of them will be covered. 
When you come across a word in a program which seems 
unfamiliar, just enter it into the computer. You’ll find that 
you’ll soon start picking up the meaning of words which have 
not yet been explained, as you see how they are used within a 
program. So, if you find a new word, don’t worry. The 
program will work perfectly without you knowing what the 
word is, and investigating the listing after you’ve seen the 
program running is likely to allow you to work out what it 
means anyway. 


RANDOM EVENTS 


In the world of nature, as opposed to the manufactured world 
of man, randomness appears to be at the heart of many events. 
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The number of birds visible in the sky at any one time, the fact 
that it rained yesterday and may rain again today, the number 
of trees growing on the side of a mountain, all appear to be 
somewhat random. Of course, we can predict with some degree 
of certainty whether or not it will rain, but the success of our 
predictions appears to be somewhat random as well. When you 
toss a coin in the air, whether it lands heads or tails depends on 
chance. The same holds true when you throw a six-sided die in 
the air. Whether it lands with the one, the three or the six 
showing depends on random factors. 


Your computer has the ability to generate random numbers 
which are very useful for getting the computer to imitate events 
in the real world. On the Oric you must use a function which 
looks like this: 


RND (n) 


You will notice that the 7 must be replaced by an integer, (whole 
number). If the number is greater or equal to 1, then the 
number generated is between @ and 1. If 7 equals @, then the 
most recently generated number is produced. If 7 is less than 
zero, then the same number is produced for each n. The one 
that we’re interested in is the first one, to produce a random 
number between @ and 1. To see RND in action, try the 
following program: 
1@ PRINT RNDC1) 

20 GOTO 1a 

When you run it, you’ll see a list of numbers like this appear on 
the screen: 


. 623695763 
. 219966953 
. @399633678 
» 212823365 
- 161374366 
. 203185255 
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» 677845822 
- 17392633 

, 9081/5919 
~7IFSZ11I2 
- 429882078 


If you leave it running, it will go on and on apparently forever, 
writing up new random numbers on the screen. 


Now random numbers between zero and one are of limited 
interest if we want to generate the numbers and get them to 
stand for something else. For example, if we could generate 1’s 
and 2’s randomly, we could call the 1’s heads and the 2’s tails 
and use the computer as some kind of electronic ‘coin’. If we 
could get it to produce whole numbers between one and six, we 
could use the computer as a six-sided die. 


Fortunately, there is a way to do this. Enter the next program 
and run it. Please note that there is a space between the quotes 
in line 10. 


1@ PRINT INT CRNDC1)*6)+15" "; 
2@ GOTO 18 


When you run this program, you’ll get a series of numbers 
(chosen at random between | and 6) like these: 


Bodo of Be Se Be oa? cB: 2. > VS BG 
oy) Be oS BB OB AB 4 OS 2? SSS 


Even though we can create vast series of numbers between 1 
and 6 with a program like this to our heart’s content, it is not 
particularly interesting. And, if you ran the program over and 
over again, you might find that the sequence of numbers may 
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start to become a little familiar. The random numbers may stop 
looking so random. 


This is because the computer does not really generate random 
numbers, but only looks as if it is doing so. Inside its electronic 
head, the computer holds a long, long list of numbers, which it 
prints in order when asked for random numbers. The list is so 
long, it is almost impossible to see any pattern or repetition in 
it. However, this is fine for our purposes. 


LOWER THE TONE 


Up until now we have been working totally in upper case. So 
that you don’t think that’s all the Oric can do, put your finger 
on the CTRL key and at the same time press the T key. If you 
type in some letters now, you’ll find they will all be lower case. 
Unfortunately the Oric can’t think in lower case, try typing in 
something like list. You should get something on the screen 
which looks like this: 


? SYNTAX ERROR 


Not at all what you’d expect, you did type in a ‘legal’ 
command, didn’t you? The computer needs all commands to 
be entered in upper case, you can use lower case inside a string, 
but all commands have to be entered in upper case. 


FAST FOOD CRAZINESS 


Enter and run the next program, which makes an interesting 
use of the computer’s ability to generate random numbers. As 
you can see, it creates a scene where you have turned up at a fast 
food outlet, desperate for something to eat, and you’ve decided 
to let random number generator pick your food for you: 
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1@ REM FAST FOOD 

3@ A=INT CRNDC1IX4)t1 

4@ PRINT "You’?ve ordered..." 

5@ IF A=] THEN PRINT"A hamburger" 

6@ IF A=2 THEN PRINT"French Fries" 

7@ IF A=3 THEN PRINT"Spare Ribs" 

82 IF A=4 THEN PRINT“Hot Dogs with ketch 


up" 
38 PRINT 
18@ GOTO 3a 


When you run this, you’ll get something like this list of food on 
the screen: 


You’ve ordered,.. 
Spare Ribs 


You’?ve ordered... 
Hot Dogs with ketchup 


You’ve ordered... 
French Fries 


You’?ve ordered... 
Spare Ribs 
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Notice how the program sets the letter A to the value of the 
random number in line 39. In this case, the letter A is standing 
fora number. It is called a variable, or, because it stands fora 
number (as opposed to standing for a word, or a string) it is 
called a numeric variable. In computer jargon, we say that, (in 
line 30), the computer has assigned the value of the random 
number to the variable A. And, as you can see in lines 50, 60, 70 
and 8G, the value assigned to A determines which food order 
you place. Read this over if it seems incomprehensible the first 
time. 


CHAPTER FIVE 
ROUND 
AND ROUND WE GO 


In this chapter we’ll be introducing a very useful part of your 
programming vocabulary — FOR/NEXT loops. You’ll recall 
that we mentioned FOR/NEXT loops when demonstrating the 
use of CLS to clear the screen. There, a loop was used to adda 
delay after the word was printed on the screen before the screen 
was cleared. 


A FOR/NEXT loop is pretty simple. It has the form of two 
lines in the program, the first like this: 


FOR A=1 TO 20 
And the second as follows: 
NEXT A 


The control variable, the letter after FOR and after NEXT 
must be the same. 


AsaFOR/NEXT loop runs, the computer counts from the first 
number up to the second, as these two examples will show: 
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18 FOR A=1 TO 20 
2@ PRINT A; 


3@ NEXT A 
When you run it, this appears on the screen: 


Leo: 84-56: 7-8-9: 1-11-12 13. 14, 15-10 
1 27 18 13 26 


Here’s another version: 


18 FOR A=765 TO 781 
20° PRINT. “AS 
38 NEXT A 


And this is the result of running it: 


265 766 76? 768 769 778 771 772 773 774 
£79 720.777 778 7/73 789 
rel 


STEPPING OUT 


In the two previous examples, the computer has counted up in 
one, but there is no reason why it should do so. The word 
STEP, can be used after the FOR part of the first line as 
follows: 


1@ FOR A=1@ TO 10@ STEP 19 
2@ PRINT A; 
38 NEXT A 


When yourun this program, you’ll discover it counts (probably 
as you expected) in steps of 10, producing this result: 


18 28 380 48 5@ 68 78 88 38 100 
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STEPPING DOWN 


The STEP does not have to be positive. Your computer is just 
as happy counting backwards, using a negative step size: 


18 FOR A=18@ TO @ STEP -15 
2@ PRINT A; 
3@ NEXT A 


This is what the program output looks like: 


188 85 7@ 55 48 25 10 


MAKING A NEST 


It is possible to place one or more FOR/NEXT loops within 
each other. This is called nesting loops. In the next example, the 
B loop is nested inside the A loop: 


1@ FOR A=1 TO 3 

20 FOR B=1 TO 2 

3@ PRINT A;"TIMES "3B;"IS “;AXB 
4@ NEXT B 

5@ NEXT A 


The nested programs produce this result: 
1 TIMES 1 IS 1 

TIMES 2 IS 

TIMES 1 IS 

TIMES 2 IS 

TIMES 1 IS 

3 TIMES 2 IS 


WNN 
MNWANN 


You must be very careful to insure that the first loop started is 
the /ast loop finished. That is, if FOR A ... was the first loop 
you mentioned in the program, the last NEXT must be NEXT 
A. 
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Here’s what can happen if you get them out of order (the Bloop 
ends after, rather than before, the A loop): 


12 
20 
38 
4 
38 


FOR A=] TO 3 

FOR B=1 70° 2 

PRINT A3;"TIMES “j3B3"IS “j;AxB 
NEXT A 

NEXT B 


b TIMES 1. 15> A 
2 Ties: 2. Tce 
Sc TIVES ie 1S <3 
NEXT WITHOUT FOR ERROR IN 5 


MULTIPLICATION TABLES 

You can use nested loops to get the computer to print out the 
multiplication tables, from one times one right up to twelve 
times twelve, like this: 


12 
28 
32 
40 
38 


FOR A=] TO 12 


BUR B=f PO: 12 

PRINT A3"TINES “48a "IS “jAxB 
NEXT B 

NEXT A 


Here’s part of the output: 


4 TIMES 3 IS 12 
4 LIMES: 4 FS" 36 
4 TIMES 3: JS 20 
4 TIMES 6 IS 24 
4 TIMES 7? IS 28 
4 VANES SLs 32 
4 TIMES 9 IS 36 
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4 TIMES 18 IS 4a 
4 TIMES 11 IS 44 
4 TIMES 12 IS 48 


There is no reason why both loops should be travelling in the 
same direction (that is, why both should be counting upwards), 
as this variation on the Times Table program demonstrates: 


10 FOR A=] TO 12 

2@ FOR B=12 TO 1 STEP ~-1 

3@ PRINT A;"TIMES “3;B3;"IS “5;AXB 
4@ NEXT B 

3@ NEXT A 


Here’s part of the output of that program: 


TIMES AZ 15° 24 
PINES 1d) S22 
TIGNES 19 18-20 
CINES (SPS: £3 
Ties oO 
TIMES is +4 
TIMES rs. }2 
TIMES IS 18 
LINES IS 8 
TIMES IS 6 


N 


NNNNNNNNN 
WA UON © 


CRACKING THE CODE 


It’s time for our first rea/ program. In this program which uses 
several FOR/NEXT loops, CODEBREAKER, the computer 
thinks of a four-digit number (like 5462) and you have eight 
guesses in which to work out what the code is. In this program, 
written by Adam Bennett and Tim Summers, you not only have 


30 GETTING STARTED ON YOUR ORIC 


to work out the four numbers the computer has chosen, but 
also determine the order they are in. 


After each guess, the computer will tell you how near you are to 
the final solution. A ‘white’ is the right digit in the wrong place 
in the code, a ‘black’ is the right number in the right place. 
You’ll see that you are aiming to get four blacks. When you 
have, you have cracked the code. Digits may be repeated within 
the four-number code. Enter the program, and play a few 
rounds against the computer. Then, return to the book for a 
discussion on it, which will highlight the role played by the 
FOR/NEXT loops. 


5 CLS 

1Q@ PRINT" XXXXXKKKKK KKK KKK KKK KKK KKK KKK KKK 
KKKXKKXKK" 

2@ PRINT 

38 PRINT"GDEBREAKER BY A.J.B, 7.S. AND P 
etieSu? 

4@ PRINT :PRINT 

SQ PRINT" XXKXKKKKKKKKKKK KKK KKK KKK KK AK KK KK 
KKKKKKK" - 

7?@ PRINT’When you are told to do so; ent 
er a" 

8Q PRINT" four-digit number and then prss 


38 PRINT"RETURN. " 

1@6 PRINT"Digits can be repeated," 

118 PRINT"You have 8 goes to break the c 
odeQ" 

120 PRINT"------------ rrr 
140 WAIT 358 

15@ CLS 


162 
178 
182 
192 
228 
210 
228 
232 
248 
25 
260 
270 
280 
238 
322 
312 
320 
330 
34 
35 
362 
370 
380 
338 
420 
412 
420 
43 
44 
458 
468 
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DIM BC4) 

DIM DC4) 

H=@ 

FOR A=] TO 4 

BCAJ=INT CRNDC1)*1@) 

NEXT A 

FOR C=] TO 8 

PRINT “Enter guess number "3C3 
INPUT X:IF X>93999 THEN 248 
PRINT 

IF INTCX41@@@)=@ THEN PRINT "9"5 
PRINT X3 

P=INT (X%71@@@0) 

Q=INT (€CX-10@0xP)/100) 
R=INT CCX-])09@xP-100k0)719) 
S=(X- 18@@8XP- 1G0XQ-10xXR) 
DC1)=P 

D(2)=Q 

DC3)=R 

D(4)=S 

FOR E=] TO 4 

IF DCEJ<>BCE) THEN 428 
PRINT " BLACK" ; 
BCEJ=BCEJ+10 

DCEJ=DCE) +22 

H=Ht] 

NEXT E 

IF H=4 THEN 638 

FOR F=] TO 4 

D=DCF ) 

FOR G=] TO 4 
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47@ IF D<>BC(G) THEN 514 

480 PRINT “ WHITE"; 

49@ B(G)=BC(G)J+194 

588 GOTO 52a 

51@ NEXT G 

52@ NEXT F 

53@ FOR G=1 TO 4 

54@ IF BCGJ<1@ THEN 562 

55@ B(G)=B(G)J-10 

56@ NEXT G 

578 H=a 

588 PRINT 

539@ NEXT C 

6@@ PRINT:PRINT:PRINT"You didn’t get it. 
61@ PRINT:PRINT"The answer was “3BC1)5BC 
2) 3B(3) 5BC4) 

620 END 

630 PRINT:PRINT:PRINT"Well done, Codebre 
aker," 

640 PRINT:PRINT"You got the answer in Ju 
st "3;C3"90es" 


Here’s what the screen looks like after one round: 
Enter guess number 7 

39385 BLACK BLACK WHITE 

Enter guess number 8 

9357 BLACK BLACK BLACK BLACK 


Well done, Codebreaker, 
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You got the answer in just 8 goes 


We’ll now go through the program line by line, a practice we’ll 
be following for several of the programs in this book. If you 
don’t want to read the detailed explanation now (and there may 
be parts of it which are a little bit difficult to understand at your 
present stage), by all means skip over the explanation and then 
come back to it later when you know a little more. 


Lines 1@ and 5@ print a number of asterisks to rule off the title, 
with blank lines printed by lines 20 and 49. 


Line 14@ pauses for a few seconds to allow you to read the 
instructions. Two arrays are dimensioned in lines 169 and 170. 
We get to arrays in a later chapter. For now, all you need to 
know is that by saying DIM B(4) you tell the computer you want 
to create a list of objects, called B, in which the first item can be 
referred to as B(1), the second as B(2), and so on. These two 
arrays are used for storing the numbers picked up by the 
computer, and for your guess. 


H is a numeric variable (we’ve mentioned numeric variables 
before) which is set equal to zero in this line. In line 419, one is 
added to the value of H each time a black is found, so that if H 
equals four, the computer knows all the digits have been 
guessed and goes to the routine form line 638 to print up the 
congratulations. 


The lines from 198 to 218 work out the number which you will 
have to try and guess. Line 260 »ses the RND function we’ve 
talked about to get four random numbers between zero and 
nine, and stores one each in the elements of the B array. Note 
that the first FOR/NEXT loop of our program appears here. 
The A in line 19@ equals one the first time the loop is passed 
through, two the second time, and so on, so that the A in line 
200 changes as well. 
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Our next FOR/NEXT loop, which uses C, starts in the next 
line. It counts from one to eight, to give you eight guesses. Line 
230 accepts your guess, using the words ‘Enter guess number 1’ 
as an input prompt. The numeric variable X is et equal to your 
guess, and line 24@ checks to make sure you have not entered a 
five-digit number. If you have (if X is greater than 9999) then 
the program goes back to line 23@ to accept another guess. 


The next section of the program, right through to line 589, 
works out how well you have done, using a number of 
FOR/NEXT loops (360 to 420, 446 to 520, 466 to 510 and 530 
to 560). Line 598 sends the program back to the line after the 
original FOR C=... to go through the loop again. If the C 
loop has been run through eight times, then the program does 
not go back to line 230, but ‘falls through’ line 59@ to tell you 
that you have not guessed the code in the eight guesses you were 
given, and to tell you what it is. Line 619 prints out the code. 


If you do manage to guess the correct code, so that H equals 
four in line 43, then the program jumps to line 638 to print out 
the congratulatory message. 


PACKING ’EM IN 


You can save quite a lot of space in the program (although it 
doesn’t always make easier to work out what is going on within 
the program, or pick up errors) by using multi-statement lines. 
With a multi-statement line, you put more than one statement 
to each line number. Each statement on the same line must be 
separated by a colon (:). 


Here is a slightly condensed version of CODEBREAKER 
produced by using multi-statement lines. Compare the two 
listings, and see how a little bit of space can be saved with 
multi-statement lines. Do NOT put a second statement in a line 
after the word IF (such as line 43@ in the original listing). The 
reason for this will be outlined in the next chapter. 
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1Q@ CLS:PRINT "XXKKKKKKKKKKKKKKKKKKKKKKKK 

KKXXKKKKKKKKK" 

20 PRINT:PRINT"CODEBREAKER BY A.J.B, T.S 
AND P.J.S. ":PRINT 

3Q PRINT" KXXXKXKKKKKKKKKAKKKKKKKKKKAKKKKKK 

KKKKKKK" 

4@ PRINT "When you are told to do so, en 

ter a" 

5S@ PRINT “four-digit number and then pre 

ss" 

6@ PRINT"RETURN. " 

7@ PRINT"Digits can be repeated." 

80 PRINT"You have 8 goes to break the ca 

deg" 

9Q PRINT" --- rn rr rr rrr rrr 

1@@ WAIT 35@:CLS:DIM BC4):01M D4) :H=@ 

118 FOR A=1 TO 4:BCAJ=INT CRNDC1IX1@):NE 

xT A 

12Q@ FOR C=1 TO 8:PRINT “Enter guess numb 

er "3C; 

13@ INPUT X:IF X>9999 THEN 138 

14@ PRINT: IF INTCX71@@0)=@ THEN PRINT"O" 

15@ PRINTX3:P=INTCX7100@) :-Q=INTCCX-1000x 

PJ7100) 

168 R=INTCCX-1000xP-1908kQ)710) :S=(X-1008 

XP-120xXQ-198xXR) 

178 DC1)J=P:002)=G:D0(3)=R:D004)=S 

18@ FOR E=1 TO 4:IF DCEJ<>BCE)J THEN 280 

19@ PRINT” BLACK" 3; :BCEJ=BCEJ+10:DCEJ=DCE 
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)+2@ :H=Ht] 

288 NEXT E:IF H=4 THEN 328 

210 FOR F=1 TO 4:D=DCF) 

220 FOR G=1 TO 4:IF D<>BCG) THEN 24@ 
238 PRINT" WHITE" ;:B(G)J=B(G)J+10:GOTO 2548 
248 NEXT G 

258 NEXT F 

260 FOR G=1 TO 4:IF BCG)<1@ THEN 288 
270 BC(GJ=B(GI-18 

280 NEXT G:H=@:PRINT:NEXT C?PRINT 

298 PRINT:PRINT" You didn’t get it..." 


3288 


PRINT:PRINT'The answer was "“3BC01)5;BC 


2) 3313) 1Bt4) 


318 
328 


aker, 


END 
PRINT=PRINT:PRINT"Well done, Codebre 


tt 


330 PRINT:PRINT" You got the answer in Ju 


st 


"3C5"g90es" 


CHAPTER SIX 
CHANGING IN 
MID-STREAM 


We pointed out earlier in the book that, in most cases the 
computer follows through a program in line order, starting at 
the lowest line number and following through in order until the 
program reached the full line. 


This is not always true. The GOTO command sends action 
through a program in which ever order you decide. 


Enter the following program, and before you run it, see if you 
can work out what will appear on the screen: 


5 TRON 

18 GOTO 40 

20" PRIN LALS: Jo 28" 

38 GOTO 68 

4@ PRINT" THIS IS 40" 
586 GOTO 28 

6@ PRINT" THIS. 1S. 60° 
78 GOTO 42 


This rather pointless program sends the poor computer 
jumping all over the place, changing its position in the program 
every time it comes to aGOTO command. Here’s what you 
should see on your screen: 
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[70](48] THIS IS 4@ 
[5@]{£2@]THIS IS 26 
[3@](68) THYS 25:88 
[7@1](4@] THIS IS 42 
CS@IC2Z@ITHIS IS 208 
C36) (60) THIS IS 68 
[78](48j] THIS IS 40 
[S@I[2@]THIS IS 28 
[38](66) THIS 15°68 
[7@B(48)] THIS IS 4@ 
[S8](2@]THIS IS 28 
£3@](60] . THIS IS 6@ 
[78140] THIS IS 4@ 
[S@IC2ZQIJTHIS IS 28 


Look at line 5; 
5 TRON 


Now you may wonder what that’s doing there, well it stands for 
TRace ON, that is the number printed in the square brackets is 
equal to the current line number. To switch it off you use 
TROFF. When you get round to writing your own programs, 
the TRON command may come in very useful when you’re not 
sure what the computer is doing. The TRON instruction allows 
you to trace the line number. 


When the computer reaches line 10 it finds a GOTO command 
and moves onto line 4@. At line 49 the computer prints some 
information and then comes to another GOTO command in 
line 56. From here it goes to 2, prints and then goes to 69. The 
Computer is then sent back to line 4@ and the circle is complete. 
It is highly unlikely that you will ever use a program that is that 
short with so many jumps to any advantage. 
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RESTRICTIVE PRACTICES 


Using GOTO In this way is called unconditional. The 
command is not qualified in any way, so the computer always 
obeys it. Another pair of words generally found together in a 
program are IF and THEN. IF something is true, THEN do 
something. The next program, which ‘rolls a die’ (using the 
random number generator) and then prints up the result of that 
die roll as a word, uses a number of IF/ THEN lines: 


1@ REM DICE ROLLS 

2@ GOTO 100 

3@ PRINT"ONE" :GOTO 188 
4@ PRINT"TWO":GOTO 180 
5@ PRINT" THREE" :GOTO 1288 
6@ PRINT"FOUR":GOTO 18 
7@ PRINT"FIVE":GOTO 182 © 
SO. PRINT Sle 

198 A=INTCRNDC1)*6)+1 
11@ IF A=1 THEN GOTO 38 


120 IF A=2 THEN GOTO 48 
138 IF A=3 THEN GOTO 5@ 
140 IF A=4 THEN GOTO 68 
15@ IF A=S5 THEN GOTO 78 
16@ IF A=6 THEN GOTO 88 
This is what you’ll see when you run this program: 
SIX 

FIVE 

TWO 

FOUR 

THREE 

TWO 


ONE 
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ONE 
FOUR 
FIVE 


So we’ve looked at unconditional, and conditional GOTOs to 
send action all about the place within a program. 


There is another way to redirect the computer during the course 
of a program by the use of subroutines. A subroutine is part of 
a program which can be called any number of times during a 
program, and is more efficiently kept outside the main 
program, than within it. 


This example should make it clear. In this, the computer throws 
a die over and over again. The first time it is thrown the 
computer is throwing it for you. The second time it is thrown it 
is throwing the die for itself. After each pair of throws the 
computer will announce the winner (highest number wins). The 
main part of this program, that we want you to grasp the idea of, 
is the subroutine used: to throw the die, this is done by first 
telling the computer to GOSUB, (GO to SUBroutine), and at 
the end of the subroutine there is a RETURN statement which 
tells the computer to go back to where it came from in the main 
program and carry on with the next command after the 
GOSUB. Enter and run the program, then return to the book 
and we’ll explain where the subroutine is within the program, 
and how it works: 


10 WAIT 5S 

2@ FOR C=] TO 2 

308 GOSUB 182 

4@ IF C=1 THEN A=D 

5Q@ IF C=2 THEN B=D 

60 NEXT C 

76 TP ADB THEN PRINT" 1. WIN" ELSE. PRINT ?Y 
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OU WIN" 
88 GOTO 14 
1@@ REM THIS IS THE SUBROUTINE 
11Q@ D=INTCRNDC1)X*6)+1 
12@ IF C=1 THEN PRINT"] ROLLED A "305" " 
ELSE PRINT “YOU ROLLED A " 3p 
138 WAIT 38 


14@ RETURN 
This is what you’ll see when you run it: 


TROLLED A 4 
YOU ROLLED A 3 
I WIN 

I ROLLED A 5 
YOU ROLLED A | 
I WIN 

J] ROLLED A 4 
YOU ROLLED A 5 
YOU WIN 


Inline 19 you’ II notice a new instruction, WAIT. Inthe flashing 
TESTING program earlier in the book we used a FOR/NEXT 
loop to create a small pause, fortunately Oric BASIC allows 
you to have the small pause without the need to use 
FOR/NEXT loops, this instruction is the WAIT statement. 
The number following the WAIT statement obviously 
determines how long the pause will last, experiment with 
WAIT. 


Line 20 contains the ominous FOR command, in this case it is 
used to determine whether it’s the computer’s throw or yours. 


When it gets to line 30, which it does (of course) once each time 
through the C loop, the program is sent to the subroutine 
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starting at line 100. The die is ‘rolled’ in line 110, and the 
numeric variable D is set equal to the result. 


In the next line we introduce a new twist to the usual 
IF... THEN statement, from here on in you will have to refer to 
IF..THEN statements as IF..THEN..ELSE, this is because 
you can, with Oric BASIC, use acommand called ELSE, which 
will carry out the instructions following the ELSE command if 
the expression following the IF statement is false, i.e. the 
command: 


IF 1=2 THEN PRINT ‘‘1 =2’’ ELSE PRINT ‘‘1 does not 
equal 2’’ will obviously print ‘‘1 does not equal 2’’ because the 
expression ‘1 = 2’ is false, so the instructions after the ELSE 
command are followed. 


There is another WAIT statement following the IF.. 
THEN. . ELSE command which provides a short pause for you 
to read the information on the screen. 


In the final line of the subroutine there is the RETURN 
command, which, as we explained before, returns the action to 
the main program, i.e. line 49. There, the IF/THENs in lines 40 
and 5 determine whether the value of the roll (D) should be 
assigned to the variable A or B. 


Line 6 ends the FOR/NEXT loop, and then line 76 determines 
whether you or the computer has won, using the ELSE 
command within the IF..THEN..ELSE. From here the 
computer GOTOs line 18 and the program starts again. 


Study this example until you’re sure you know how subroutines 
work, because they’re pretty useful things in nearly every 
program. 
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LET’S ROLL AGAIN 


There is a very efficient way of shortening the previous die 
rolling program using the command ON..GOSUB, (there is 
also acommand ON.. GOTO which works in a similar way), 
to see the effect of ON. .GOSUB type in the following program 
and run it: 


1@ REM DICE ROLLER 

26 D=INT CRNDC1)X6)+1 

38 ON D GOSUB 58,60, 78,808,390, 180 

48 GOTO 28 

5@ PRINT"ONE" :RETURN 

680 PRINT" TWO" :RETURN 

70 PRINT" THREE” ?:RETURN 

82 PRINT"FOUR" :RETURN 

3@ PRINT"F IVE" >:RETURN 

1@@ PRINT"SIX" :RETURN 

As you can see, the effect of ON. .GOSUB, or ON.. GOTO 
for that matter, is that the computer goes to the subroutine Nth 
in the list in the expression ON N GOSUB A,B,C etc., i.e. if 
N =3 and C= 10@then the computer will go to the subroutine at 
line 100. 


CHAPTER SEVEN 
SOUNDING OUT 


The Oric 1 microcomputer is supplied with a very useful set of 
sound commands which will enhance your programs no end. 


The four most noticeable commands available are the 
predefined sound commands EXPLODE, PING, SHOOT and 
ZAP. These are extremely useful if envelopes, tone and noise 
and waveforms have you baffled. To see what each sounds like, 
type in the following program and run it: 

1@ REM SOUND DEMO 1 

28 CLS 

38 PRINT"EXPLOUE" 

4@ EXPLODE:WAIT 198 

5@ CLS 

6@ PRINT"PING" 

7@ PING:WAIT SQ 

8@ CLS 

9@ PRINT" SHOOT" 

1@@ SHOOT:WAIT S@ 

11@ CLS 

120 PRINT" ZAP" 

138 2AP:WAIT 32 

14@ GOTO 20 
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Now, armed with these four new commands, you can liberally 
spread them throughout the programs and program fragments 
we showed you earlier in this book. 


SELF COMPOSURE 


If you decide that you want a little more than just explosions, 
etc., then you can create your own sounds using the commands 
MUSIC, SOUND and PLAY. 


MUSIC 


The music command offers pure notes, so therefore is aimed at 
the musicians amongst you. The correct syntax for MUSIC is; 


MUSIC (Channel, Octave, Note, Volume) 


Where Channel is 1, 2 or 3 tone channels Octave — @ to 6, @ 
being the lowest and Note: 


1=C 
2=C# 
3=D 
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SOUND 


Sound is a command more useful when you want to create 
effects, i.e. wind or rain. The correct syntax for SOUND is; 


SOUND (Channel, Period, Volume) 


Channel: 1, 2 or 3 tone channels 
4, 5 or 6 noise channels 
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PERIOD: Sound length 


VOLUME: 6-15 if @ is used, as with MUSIC command, 
control is taken by the envelope. 


PLAY 


Play is the most useful of all the sound commands when it 
comes to creating synthesised effects. Its parameters are: 


PLAY (Tone enable, Noise enable, Envelope Mode, Period) 


Tone enable: @ No tone channels on 
1 Channel 1 on 
2 Channel 2 on 
3 Channels 1 and 2 on 
4 Channel 3 on 
5 Channels 3 and | on 
6 Channels 3 and 2 on 
7 Channels 3, 2 and 1 on 


Noise enable: as above, only for noise channels 


Envelope mode: 1 Single decay. 
2 Single rise, then silent. 
3 continuous sawtooth, starting from a peak 
4 continuous rise and fall, starting low. 
5 curved rise with continuous high tone. 
6 continuous rising sawtooth. 
7 straight rise to continuous high tone. 


PERIOD: 6 to 32767 


Try the following program which uses all of Oric’s sound 
facilities to show you their possibilities. 


128 
20 
32 
4 
38 
6a 
70 
8 
38 
128 
112 
120 
138 
140 
156 
16a 
178 
18@ 
138 
200 
21@ 
230 
240 
258 
14) 
268 
270 
280 
2398 
388 
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REM SOUND DEMO 2 
PRINT CHR$(6):CLS 
PRINT"BOMBS AWAY" 
FOR A=6 TO @ STEP -1 


*FOR B=12 70 1 STEP -1 
> MUSIC 1,A,B,15 
*NEXT B 


NEXT A 
EXPLODE :WAIT 108 


CLS 

PRINT"HELICOPTERS" 
=PLAY @,2,3;1 

WAIT 280 

CLS:PRINT" INUADERS" 

FOR A=1 TO 5 

:WAIT INTCRNDC1)*30)+28 
>ZAP 

NEXT A 

CLS:PRINT"MUSIC" 
RESTORE 

FOR A=1 TO 23 

*READ N;P 

:MUSIC 1,2,N,@ 

:PLAY 1,8,2,10@:WAIT 2:PLAY 1,0,1,38 


:WAIT PX3@:IF A>1S THEN WAIT 18 
=PLAY @,9,98,0 

NEXT A 

DATA 18,3,10,3,8,.5,10,.5,12,4 
DATA 8,.5,10,.5,12,4,18,.5,8,.5 
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Si@ DATA 1055583 sSx7 5% D5 7199 95535393540 
328 DATA 5,3,3,2,.5,3,.5,3,;4,5,1.5,;2,,5,3 
ee) 

330 PING:WAIT 5@:EXPLODE 

340 WAIT 1@@6:CLS 

35@ PRINT" GUNFIGHT" 

366 FOR A=1 TO 5 

37@ :WAIT INTCRNDC1)*30)+29 

380 :=SHOOT 

3938 NEXT. A 

488 SOUND 1,;1,1 

410 PLAY 2,9,90,2 


THE DESCRIPTION 


Line 1@ holds that famous REM statement which is here 
holding the name of the program SOUND DEMO 2. In line 28 
the effect of PRINTing CHR$(6) is to switch off the keyboard 
click, which would otherwise effect the RUNning of this 
program. Line 30 gives us a clue as to what sort of effect we are 
trying to get in lines 46—99, listen to the noise and refer to the 
program listing, can you see what the computer is doing? From 
line 119 to line 138 you will find the routine which tries to 
recreate the sound of a helicopter by quickly switching on and 
off the noise channel via the envelope. The INVADERS sounds 
are simply ZAP commands at random intervals. From line 190 
to line 32@ you will see the MUSIC routine, which uses a few 
commands we haven’t covered yet, but we’ll get round to it. All 
you need to know now is that DATA holds the note values and 
lengths, RESTORE makes sure that the computer will look at 
the information from line 298 onwards and the READ 
command takes the information out of the DATA statements. 
The result is a tune, although not everybody’s favourite, is a bit 
more complicated than ZAP. GUNFIGHT from line 359 is 
similar to INVADERS but uses the SHOOT command. In line 
416 switches off any sounds that your Oric might still be 
making. 
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SOUND ADVICE 


As you will have noticed in the Sound Demo 2 program, you 
can use variables within the sound commands SOUND, 
MUSIC and PLAY. In the next program, SOUND ADVICE, 
you have to guess the number between 1 and 12. The feedback 
on each guess — which will help you home in on the correct 
number in the shortest possible number of guesses — is in the 
form of MUSIC. Once you’ ve played it for a few rounds, you’ll 
learn to interpret the output from the computer. 


When you manage to guess the correct answer, you’ll get this 
on the screen: : 


Yes, it was 11 
You got it in 3 guesses 


Here’s the listing: 


1@ REM SOUND ADVICE 

2@ R=INT CRNDC1)*12)+1 

3@ PAPER 1:INK 7:CLS 

4@ GUESS=1 

5@ PLOT10,9,"THIS IS GUESS #"+STR$CGUESS 
DE " 

6@ FOR A=1 TO 2@:PRINT:NEXT: INPUT "What 
number am |] thinking of" 3A: 

CLS 

88 IF A=R THEN 1380 

9@ PLOT 4,5,;"No, your guess is not corre 
et 

1@@ MUSIC 1,3,;R,15:WAIT S@:PLAY @,0,0,0: 
CLS 

11@ GUESS=GUESS+1 
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128 GOTO S@ 


13@ CLS:PRINT:PRINT:PRINT"Yes, it was "3 
R 


14@ PRINT:PRINT:PRINT"You got it in "3GU 
ESS3" guesses" 


First of all is the REM statement telling us the name of the 
program. The next line generates a random number between 1 
and 12, and sets the numeric variable R to it. In line 30, the 
computer sets the background (PAPER), to red, and the colour 
in which it prints (INK), to white. Both PAPER & INK are 
automatically established, this will be explained in the colour 
chapter of this book. 


Line 4@ sets the numeric variable GUESS to one, and in line 50 
the number is PLOTed onto the screen. Using PLOT you can 
specify where you want the information on the screen, i.e. 
PLOT 6,6,‘‘TOP CORNER’’. 


PLOTs the string ‘‘TOP CORNER’”’ in the top left-hand 
corner of the screen. If you were to say PLOT 
12,12,““CENTER”’ then the computer would print the string 
““CENTER’”’ in the middle of the screen. Line 69 accepts your 
guess, as variable A. If A (the number you’ve guessed) is the 
same as R) the number the computer thought of in line 20), as 
the computer checks in line 88, then the computer knows you 
have guessed its number. 


If you are not right then line 9@ tells you so, and the following 
line (10@) gives you your audio feedback, the pitch will give you 
the clue as to what it is. The variable GUESS is incremented by 
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one (that is, one is added to the value of the variable GUESS) 
before the computer returns to line 5@ to accept your next 
guess. 


If you have guessed the number correctly (detected in line 88) 
the program moves to line 138. The screen is cleared and the 
computer tells you the number it was thinking of, and then (in 
line 140) tells you how many guesses you took. 
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12@ GOTO 5S@ 


13@ CLS:PRINT:PRINT:PRINT"Yes, it was "3 
R 


14@ PRINT:PRINT:PRINT"You got it in "3GU 
ESS3" guesses" 


First of all is the REM statement telling us the name of the 
program. The next line generates a random number between 1 - 
and 12, and sets the numeric variable R to it. In line 30, the 
computer sets the background (PAPER), to red, and the colour 
in which it prints (INK), to white. Both PAPER & INK are 
automatically established, this will be explained in the colour 
chapter of this book. 


Line 4@ sets the numeric variable GUESS to one, and in line 50 
the number is PLOTed onto the screen. Using PLOT you can 
specify where you want the information on the screen, i.e. 
PLOT 6,0,‘‘TOP CORNER’’. 


PLOTs the string ‘““TOP CORNER’”’ in the top left-hand 
corner of the screen. If you were to say PLOT 
12,12,““CENTER’”’ then the computer would print the string 
“‘CENTER’’ in the middle of the screen. Line 60 accepts your 
guess, as variable A. If A (the number you’ve guessed) is the 
same as R) the number the computer thought of in line 20), as 
the computer checks in line 88, then the computer knows you 
have guessed its number. 


If you are not right then line 99 tells you so, and the following 
line (10@) gives you your audio feedback, the pitch will give you 
the clue as to what it is. The variable GUESS is incremented by 
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one (that is, one is added to the value of the variable GUESS) 
before the computer returns to line 5@ to accept your next 
guess. 


If you have guessed the number correctly (detected in line 80) 
the program moves to line 130. The screen is cleared and the 
computer tells you the number it was thinking of, and then (in 
line 14@) tells you how many guesses you took. 


CHAPTER EIGHT 
MAKING 
COMPARISONS 


We all know the equals sign (=) and we’ve seen it in use in 
several programs so far. We’ve also seen the greater than (>) 
and less than (<) signs. At this point of your learning, we 
thought it would be useful to briefly recap on what each of these 
signs are, and what they mean: 

= equals 
> greater than 
< less than 
> = greater than or equal to 
< = less than or equal to 
<> not equal to 


You’ll see these in use in many programs in this book, such as 
this next one, which allows you to challenge the computer to a 
game of BRICKUP, written by Graham Charlton. 


Here’s the listing for BRICKUP: 

1@ REM BRICKUP 

26 REM From a program written by 

38 REM Graham Charlton 

4@ GOSUB 8200 

080 T=10:SC=0 

62 PLOT 1,0,"LIVES LEFT “tSTR$CT):PLOT 1 
9,90,"SCORE "+tSTR#CSC) 
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7@ C¥1:D=1] ?X=23:Y=INTCRNDC1)*10)+20:M=Y- 
2 

8@ IFSCRNCY; XJ=ASCC"X" J THENC=-C 2:SC=SCt1: 
SOUND1,5@,15:PLOT 25,8,STR$ 

¢scj" " 

38 IF X>24 THEN 1988 

1@@ PLOT Y,xX, "0" 

110 PLOT M,24," (==] " 

12@ IF KEY$="P" THEN M=MNt+1 

121 WAIT S:PLAY @,8,0,@ 

122 IF KEY$"E" THEN M=M-1 

13@ IF X+C<3 THEN C=-C:SOUND 1,5@8,15 

14@ IF X=24 AND Y>=M AND Y<=M+S THEN C=- 
C:SOUND 1,4@,15 

15@ IF Y+D<2 OR Y+D>3S THEN D=-D:SOUND 1 
368,15 

166 PLOT Ysxs" “ 

17@ X=xK+C:Y=Y+D 

182 GOTO 8a 

18@8 T=T-1:C=-C:MUSIC1,@,2,15:WAITS@:MUS 
1€1,8,1,15:WAI7T 18@:PLAY @, 

2,8,2 

1018 PLOT 1,0,"LIVES LEFT "“+STR#C(TIJ+" "3 
PLOT 19,8,"SCORE "“+STR#(SC) 

1820 PLOT M,;24," 7 

183@ IF T>@ THEN 72 

1048 EXPLODE :CLS :END 

8888 CLS:PAPER 4:INK ? 

8818 PRINT:FOR A=1 TO 36:PINT CHR$(126)3 


*NEXT 
8828 FOR A=2 TO 25:PLOT 1,A;,CHRSC126) =PL 
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OT 36,A,CHR$C126) =NEXT A 
BB3B PLOT 2,5, "XXXXXXXXXXXKXAKKRAXAKRRRAARK 


RARKAAKAAK © 
BB4B PLOT 2,6, "XXXXXXXXXXKXXAXXARAKARRAARN 


ARAAAKARK 
BB5Q PLOT 257, "XXXXXXXXXKXKXXXXXKRRAARARKARKA 


RARKKARAN © 

BQ6@ PLOT 2,8, "XXXXXXXXXXXKXKXXAXAXXRRRARARK 
AA KRARAKM | 

8878 PRINTCHR# (1733 

8880 RETURN 


In BRICKBAT, you use the P and E keys to move the little slide 
at the bottom of the screen back and forth, bouncing the ball 
off it (if you can). As the ball bounces up to the X’s above, it 
will strike them, making asound and adding to your score. You 
have ten balls per round. It is fascinating to see what happens if 
the ball gets momentarily ‘trapped’ inside the bricks, bouncing 
off them wildly, before it finds a way out and down. You’ll see 
how effective this can be when you run the program. The only 
limitation of this program is the way the Oric reads the 
keyboard, causing slow reactions to your commands. 


Notice that our ‘comparison symbols’ (less than, and the rest) 
are used frequently in this program. They perform a number of 
tests in conjunction with IF/ THEN statements, bouncing the 
ball off the slide at the bottom of the screen, the walls or the 
bricks, deciding when the ball has missed the slide, and 
continuing the game if you still have a ‘life’ (that is, ball) left. 
The program ends in line 1048 with an explosion. 


The words AND and OR are also used in comparison lines, 
chaining two or more tests together, as in lines 146 and 150. 
They work as follows: 


AND 


OR 
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The computer does what follows the THEN if both 
of the conditions chained by the AND are true 
The computer carries out the instruction following 
the THEN if either of the conditions are true. 


CHAPTER NINE 
A GAME AND A SPEED 
TEST 


It’s time now to take a break from the serious business of 
learning to program the computer. As you can see in this 
chapter, we have a couple of major programs, which use many 
commands that have not yet been explained. We suggest you 
enter the programs just as they are, play them for your own 
enjoyment, then come back to the explanations which follow 
the listings after you have mastered the rest of the book. We do 
not think it is fair to keep you waiting for major programs until 
you’ve covered everything on the computer, so we have decided 
to supply you with these programs at this point, and hope you’ll 
enter them ‘on trust’, returning to this chapter for the 
explanations when you feel you are ready. Of course, you do 
not have to enter the programs right now. If you’d prefer to 
continue with the learning, then move straight along to chapter 
ten. 


PLAYING ALONE 


Our first listing allows you to use your computer as a Solitaire 
board. It is believed that Solitaire was invented by an 
imprisoned nobleman in France in the late 16th century, and 
was brought into England in the closing decade of the 18th 
century. 


The aim of the game is simple to explain, but not so easy to 
achieve. You start on a board which has 33 positions marked. 
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There are ‘pegs’ in 32 of the positions on a real board, and 
the middle position is empty. 


The ‘blocks’ represent the pegs, and the white mark in the 
center is the empty square. To play, you simply jump over 
any of your pieces vertically or horizontally, so that you 
end up in an empty position. The piece which you have 
jumped over is removed from the board. The aim of the 
game is to end up with just one block in the center 
position. 


The board is displayed each move, and also the number of 
pegs, (blocks), left on the screen. You move by entering the 
co-ordinates of the piece you want to move, using the 
number down the side first, followed by the number across 
the top. These are entered as a single, double-digit number. 
If you wanted to move the piece which was two positions 
below the central hole, you’d enter 64, then press 
RETURN, followed by 44, and RETURN again. The board 
is reprinted, and you are then offered another move. 


This is the listing of the Solitaire program: 

1@ REM SOLITAIRE 

28 GOSUB 268 

4@ REM ACCEPT MOVE 

45 CLS:GOSUB 190 

5@ INPUT “Which peg do you wish to move" 
SAS 

6@ MUSIC 1,1,;1,15:WAIT S:PLAY 8,8,8,0 

7@ LET AL=VALCLEFT$CA$, 13) :A2Z=VALCRIGHT$ 
CA$, 13) 

73 IF ACAI, AZ) <>MAN THEN GOTO S@ 

8@ INPUT "to where" 3B$ 

3@ MUSIC 1,1,;1,15:WAIT S:PLAY 8,0,0,90 

33 LET B1=VACLEFT$(B$, 1)) :B2=VALCRIGHTSC 
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BS,1)) 

35 IF ACB1,B2)<>EMPTY THEN 82 

1@@ IF ABSCAI1-B1)>2 OR ABSCAZ2-B2}>2 THEN 
45 

141 IF ABSCAI-B1)=1 OR ABSCAZ2-B2)=1 THEN 
45 

1@2 IF ABSCA1-B1J=@ AND ABSCAZ2-B2)=@ THE 

N 45 

1@3 IF ABSCAI-B1J=2 AND ABSCA2-B2)=2 THE 

N 45 

11@ MOVE=MOVE+1 :COUNT=@ 

115 ACA1,A2ZJ=EMPTY -ACB1,B2)=MAN 

116 ACCA1+B1)72, CA2+B2)723=EMPTY 

126 FDR: biel T0.7 

bo. FOR L2e)) 10! 7 

138 IF ACL1,L2J=MAN THEN COUNT=COUNT+1 

130 (NEAT tz 

14@ NEXT L1 

16@ IJFCOUNT=1ANDAC4,; 4)=MANTHENPRINT" YOU 

DID IT IN "MOVE :END 

17@ PLOT1,;8,"THERE ARE "t+tSTRSCCOUNT)+"PE 

GS ON THE BOARD" 

18@ GOTO 48 

190 PLOT 165.55" 1234567" 2PCOT 103 63 cts 


| oe ee 


288 FOR LOOP=-? TO -1:PLOT 24,6+ABS(LOOP 
J, STR$(LOOP) :NEXT LOOP 

21@ FOR L1=] TO 7:FOR L2=1 TO 7 

228 PLOT 15+L2,6+L1,CHR$(AC(L1,L2)) 

238 NEXT L2:NEXT L1 

24@ PLOT 17,7,16:PLOT 17,;8,16:PLOT 15,9, 
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16:PLOT 15,18,16 
241 PLOT 17,14,16:PLOT 21,14, 20 
245 PLOT 21,;7,2@:PLOT 21,8,2@:PLOT 23,9; 
28:PLOT 23,10,20 
246 PLOT23,11,;2@:PLOT 23,12,2@6:PLOT 21,1 
3,208 
259 PLOT 15,11,16:PLOT 15,12,16:PLOT 17; 
13, 16:RETURN 
26@ PAPER 4:INK?:CLS:DIN AC7, 7) 
270 BLANK=32 :MAN=33 -EMPT Y=34 
288 FOR L1=1 TO 7:FOR L2=)] TO 7? 
298 READ ACL1,L2):NEXT L2,;L1 
308 FOR L1=46@88+(MANX8) TO 46080+ (348) 
+7 
318 READ USER:POKE L1;,USER:NEXT 
3208 RETURN 
338 DATA 32; 32,33; 33; 33,32; 32 
348 DATA 32,32, 33, 33,33, 32, 32 
350 DATA: 333:335°333.335.333 33,33 
368 DATA 33,33, 33, 34,33, 33; 33 
378 DATA 33, 33, 33, 33, 33, 33, 33 
380: DATA 323.32; 33533; 33)-32532 
338 DATA 32, 32,33, 33, 33, 32,32 
488 DATA 7,13,;21;,21,23, 26, 28,0 
4@5 PATA @,0,28, 28, 28,28, 28,0 


The program works as follows. Line 2 sends the action to the 
subroutine from line 269 which sets up the requirements for the 
start of the game. The PAPER is set to blue and the INK is set to 
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white. The array A is used to hold the board, as you.can see, it 
has been dimensioned as A(7,7), this means that there are seven 
pigeonholes, with seven more sub-pigeonholes in each. More 
variables are initialised and then the pattern of the Solitaire 
board is read into AQ). The FOR/NEXT loop which starts at 
300 creates what’s known as USER-DEFINABLE 
GRAPHICS, these will be covered in detail in Chapter 12. 


When the computer RETURNs from line 329, it is immediately 
sent on another subroutine, this time starting at line 190. This 
subroutine prints the board, firstly the grid numbers, then the 
pegs and spaces and finally the colour is added using 
low-resolution PLOT, (see Chapter 14). 


In line 7 the functions LEFT$ & RIGHTS are used to split up 
the input A$. Using VAL we can turn a string variable into a 
numeric variable. Most of the rest of the program is basic 
maths to check if you have made an invalid move, etc. 


TESTING YOUR SPEED 


Our next program, REACTION TESTER, is much shorter 
than Solitaire, but just as much fun to play. You enter the 
program, type RUN, and the message ‘STAND BY’ appears. 
After an agonizing wait, STAND BY will vanish, to be replaced 
by a notice ‘OK, PRESS THE ‘Z’ KEY’”’. As fast as you can, 
leap for the Z key, and press it, knowing that the computer is 
counting all the time. 


The computer then tells you how quickly you reacted, and 
compares this with your previous best time. ‘‘BEST SO FAR 
IS...’’ appears on the screen, and the computer then waits for 
you to take your hands off the keyboard, to prevent cheating 
(as if you’d try to cheat on your computer), before the whole 
thing begins again. If you manage to get the reaction time 
below 5 then the program will stop and proclaim you the 
champ. 


Here’s the listing of REACTION TEST: 
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5 REM REACTION TEST 

1@ H]=1@00:PAPER @:INK 7? 

15 DIM B$(32):FOR A=1 TO 32:BSCAJ=CHRSC1 
26) =NEXT 

2@ CLS:PLOT 5,5,"STAND BY 

328 FOR A=] TO 286+RNDC1)X508 

4@ NEXT A 

5Q@ IF KEY$<>"" THEN GOTO 5@ 

55 PLOT 5,5,"0K;,; PRESS THE ’2? KEY" 

6@ COUNT=2 

7@ COUNT=COUNT+1 

38 AS=KEYS$ 

106 IF A$SQ>"2" THEN 72 

118 PRINT:PRINT:PRINT"SCORE:"COUNT" " 
12@ IF COUNT<HI THEN HI=COUNT:MUSIC 1,5, 
5,15:WAIT S@:PLAY @,9,0,@4 

138 PLOT @,@," BEST SO FAR IS "“+STRS(HI) 
:PLOT @,1,CHR$(17)+BE 

135 WAIT 182 

136 IF KEY$0"" THEN GOTO 136 
148 IF HI<S THEN 160 

15@ GOTO 20 

168 REM 

170 PRINT CHR$(C12) 

18@ PRINT CHR$(4) ;CHR$C27)5"N 
ARE THE CHAMP 8298" 

185 PRINTCHR$(4) 

19@ END 


Line 1 sets the Hiscore to 1000 and sets the colour of the paper 
to black (@) and the ink to white (7). Line 15 dimensions the 


You 
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array B$ to hold 32 characters, and then fills the string with 
chequered characters (CHR$(126)). In line 20 we see the PLOT 
statement being used to print ‘STAND BY’ onthe screen. Lines 
38 and 49 provide a random pause, and line 5@ checks to see 
whether you already have your finger ona key. Line 55 tells you 
it’s alright to press the Z key and lines 60 to 100 do the counting. 
If you manage a new high score then the program celebrates 
with a short note. The loop continues at line 15@ and the 
‘CHAMP’ routine is from line 170 onwards. Notice the use of 
control characters, (PRINT CHR$(12), etc,) as used in the 
champ routine, to print double height, and flashing characters. 


ADDING A LITTLE STRUCTURE 


Now is as good a time as any to introduce you to the idea of 
structured programming. Although you may think at this stage 
of your learning, ‘If-it-works-then-don’t-start-fiddling- 
about-with-it’, you will soon develop bad habits. One good 
way of writing programs is to put everything into short 
subroutine, which can be called when necessary. You will need 
to iron out all the ‘bugs’ in your programs, (a bug is a problem 
in your program which makes the program do what you didn’t 
expect it to do, the word bug comes from an accident with an 
IBM when a moth got inside the case, and while it was frying 
away within it managed to crash the system). The easiest way to 
find your bugs is to watch exactly what your computer is doing, 
then refer back to the program and find out why it’s doing it. 
Structured programming makes things neat and tidy, and 
therefore easier to decipher what’s going on. There are a few 
points to remember if you want to start ‘structured’ 
programming: 


Try not to keep jumping all over the place using the 
command GOTO, this makes the flow of the program 
difficult to follow. 


Always put an END command at the end of your program, 
if you want to end a program somewhere which is deeply 
nested in your program then use the STOP command. 


Line numbers in steps of ten. 


CHAPTER TEN 
STRINGING ALONG 


You'll recall that several times in this book so far we have 
referred to numeric variables (letters like A or B, words like 
COUNT and GUESS, and combinations such as K9 or M1) and 
to string variables (similar to above, but followed by the dollar 
($) sign, i.e. A$, COUNTS or K9$). In this chapter we’ll be 
looking at strings, and at things you can do with them. 


THE CHARACTER SET 


Every letter, number or symbol the computer prints has an 
ASCII value. Telling the computer to print the character of that 
value produces the character. It is easy to understand this. The 
value of the letter ‘‘A’’ has nothing to do with the value 
assigned to A when it is a numeric variable, but refers to ‘‘A”’ 
when we want the computer to print it out. We’ll put the ‘‘A’”’ in 
quote marks when we refer to it as a letter. Try it now. Enter 
this into your computer and see what you get: 


PRINT ASCC"A") 


You should get the answer 65. Now 65, is the ASCII, (ASCQ 
stands for ASCII), of the letter ‘‘A’’. We can turn it back into 
an ‘‘A’’ by asking the computer to print the character which 
responds to ASCII code 65. We do this by using the function 
CHR$, which stands for Character-string. 
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You can get your computer to print out every ASCII code and 
character with the next short program, which has — as you can 
see — a very long printout. 


1@ REM SHOWING ASCC)J AND CHRSC) 


2@ FOR A=32 TO 126 
30 PRINT “ASCII "A;,,“CHARACTER "“CHRSCAJ 


4@ WAIT 5 
5@ PLAY 1;,9,1,;18 
6@ NEXT A 


You’ll notice that we don’t print all the characters, this is 
because some of them are CONTROL CHARACTERS and 
produce very weird effects, (remember that little trick we 
learned earlier to clear the screen using CTRL & L, well that 
was a control character, try something like CTRL & G for a 
surprise). If you have a printer attached to your Oric, then you 
may like to keep a permanent record of what your computer 
can actually print, to do this change the word PRINT in line 30 
to LPRINT, your printer might start printing strange Japanese 
characters, if it does this then look for a switch which will 
probably read 7-Bit ASCII/Special Characters (or something 
similar). Switch this to 7-Bit ASCII. 


TESTING YOUR CHARACTER 


Our next program is a reaction tester like the one you 
experienced earlier. However, you are not being tested just on 
speed. In this program, you have to find the right key on the 
keyboard as quickly as possible. 


Make sure that you are in CAPS mode, i.e. the CAPS sign 
appears in the right-hand corner of the screen. A letter will 
appear in the middle of the screen. As quickly as you can, find 
that letter on the keyboard and press it. You will be told how 
long it took you, and this time compared with your best time. 


Here is the listing: 


18 
15 
20 
32 
NT 
4@ 
=) 4) 
62 
70 
82 
30 
1989 

TI 
114 
120 
ONE 
130 
148 
15 
168 
170 
188 
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REM KEYBOARD INSTRUCTOR 
BEST=@:CLS:PAPER @:INK 3 

A=65tINT CRNDC13*26) 
B=@:PRINT:PRINT:PRINT :PRINT :PRINT :PRI 


>PRINT:=PRINT 


PLOT 16,5, CHR$CA) 
AS=KEY$ 

IF agS<>"" THEN IF AS=CHRSCA) THEN 120 
B=Bt]l 
PLOT 15,108,STR$(B) 

IF B<2@@ THEN S@ 

PRINT :PRINT:PRINT:PRINT-:PRINT"SORRY, 
ME ISR 

GOTO 144 

PRINT :PRINT:PRINT:PRINT-:PRINT"WELL D 
» YOU SCORED" 

PRINT2@@-B"ON THAT ONE" 

IF 2@@-B>BEST THEN BEST=288-B 
PRINT:PRINT"“BEST TODAY:"BEST 

ZAP :WAIT AXK3:PLAY @,1,1,18@ 

CLS 

GOTO 208 


CUTTING THEM UP 


One 


of the really great aspects of your computer is the way it 


can be used to manipulate strings. It is called ‘string slicing’ and 
works as follows. There are three commands which are usually 


used 


in string slicing, they are RIGHT$, LEFT$ and MID$. 


Let’s say you have the string A$ which equals ‘‘HELLO”’ for 
instance, and you want the end two characters to equal B$, to 
do this you would say: 


B$ = RIGHTS$(A$,2) 
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What the function does is take the last 2 characters of A$ and 
put them into B$. A$ stays the same, but B$=‘‘LO’’. The 
function LEFT$ works in the same way, but obviously takes 
the characters from the start of the string (i.e. the left). To see 
how this works try this one, assuming A$ = ‘SHELLO”’ still; 


C$ = LEFT$(A$,3) 


The string C$ should hold ‘‘HEL’’, to see if it is holding this 
type PRINT C$. 


The third function used in string slicing is MID$, this is a very 
useful function as it allows you to take a character or a few 
characters from the middle of a string, or the characters from 
one point to the end of a string. Assuming that A$ has the same 
‘value’, try: 


D$ = MID$(A$,3,2) 


What this does is take 2 characters from the string A$, starting 
at the third character. Now try this one: 


E$ = MID$(A$,2) 


This takes all the characters from the string A$ from the second 
character. i.e. E$ would equal ‘‘ELLO”’’ and D§$ equals ‘‘LL’’. 


The next program takes the string ‘“MATHEMATICS”’ and 
splits it up into many different ways. 


18 A$="MATHEMATICS" 

20 PRINT “AS = “AF 

38 BS=LEFTSCAS,4):=PRINT BS 

4@ BS=RIGHT$S$(CA$,4)-PRINT BS 

5@ BS=NIDSCA$F, 3,33 -=PRINT BS 

68 BS=NINSCAF,6):PRINT BF 

7@ REM COULD THIS BE A NEW POP GROUP? 
RUN the program and try to follow what it’s doing as the 
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computer carries out each instruction. In line 16 the computer 
assigns A$ to the string ‘‘MATHEMATICS’’, and line 20 
prints out A$. Line 3 takes out the word MATH and prints it 
on the screen. Line 4@ takes out ‘‘TICS”’ and again prints it on 
the screen. The same is done in lines 5@ and 69 where the words 
“THE and ‘‘MATICS”’ are printed. You can change the 
program to print other parts of A$, or you could even change 
the string A$, but be careful that when you are ‘cutting’ the 
string you are not trying to take parts of the string which are not 
there, i.e. if A$=‘‘ORIC’’ and you let B$ =MIDS$(A$,6,1) 
then Oric is not going to be too happy. 


PUTTING THEM BACK TOGETHER 


Strings can not only be cut up, but they can also be added 
together on your computer. The process of adding strings 
together is called the frightening-looking word concatenation. 
You can concatenate two complete strings together, or just add 
bits of them, as in our next program: 


1@ AS="FISH AND CHIPS" 
28 BS="PEAS AND BEANS" 
38 C$=A$StBS 

4@ PRINT"AS="AS 

S@ PRINT" BS="B$ 

6@ PRINT"C$="C$ 

70 D=INTCRNDC13*14)+1 
80 E=INTCRND(C1)*14)+15 
38 DF=NIDF(CF$,0,E-D) 
1@@ PRINT “D$="D$ 

110 ES=A$StDStBS 

12@ PRINT “ES="E$ 


Try and see what’s being added to what in the listing before you 
run the program, can you see what the effect of adding A$ and 
B$ is in line 38? 
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You should get results like these: 

A$=FISH AND CHIPS 

B$=PEAS AND BEANS 

C$=FISH AND CHIPSPEAS AND BEANS 

D$=AND CHIPSPEAS 

E$=F ISH AND CHIPSAND CHIPSPEAS PEAS AND 
BEANS 


AS=FISH AND CHIPS 

B$=PEAS AND BEANS 

C$=FISH AND CHIPSPEAS AND BEANS 

D$S=AND CHIPSPEA 

E$=FISH AND CHIPSAND CHIPSPEAPEAS AND BE 
ANS 


PLAYING AROUND 


You can do a number of things with string slicing, as our next 
program demonstrates. NAME PYRAMIDallows you to enter 
your name to produce a very interesting display. Once you’ve 
seen the program in action you’ll understand why the program 
has been given the name it has. 


1 REM NAME PYRAMID 

2 REM showing string slicing 

S PAPER @:INK 7:CLS 

1@ INPUT “WHAT IS YOUR NAME " 5AS$ 

20 IF LENCA$)>18 THEN AS=LEFTSCAS, 15) 
3@ A=LENCA$J:REM ?LENCJ’? IS THEN LENGTH 
OF THE STRING 

48 PRINTTABC30) 35". ° 

5@ FOR G=1 TO A:PRINT TABC12+C19-G)); 
55 PLOT @,G,G74+]1 

6@ FOR H=1] TO 2xkG:PRINT MIDSCAS;,G, 1); 
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7@ NEAT H 
88 PRINT 
98 PLAY 1,0,1,10 
188 NEAT G 
GG 
EERE 
mie Pia 
EEUTT ETE 
IITIIIII1I1 
NNNNNNNNNNNN 
GGGGGGGGGGGGGG 
SSSSSSSSSSSSSSSSSS 
TTTTTTTTTTTTTTTTTTITT 


ARAAAAAAAAAAAAAAAAARAAA 
RRRRRRRRRRRRRRRRRRRRRRRR 
PEEITITT EET ITE ETP EE ery 
FEEEREERERPEEPEEREEEEEEEREEEE 
DDDBDODDDDBDDDDDDDDDDDDDPDDPDDp 


PLAYING IT BACK 


Our final program in this chapter shows one very effective use 
of string slicing, in which a string is progressively reduced by 
one element. When you run ECHO GULCH, you'll see a letter 
appear on the screen. It will then vanish. Once it has vanished 
(and not before, you will have a limited amount of time in 
which you must press the corresponding key). 


If you have pressed the right key, you will hear the PING, and 
the letter will be replaced by a new one, this will stay on the 
screen for a shorter time. Each time a new letter appears, you 
will be given less time to see it, before you have to type it into the 
computer. If you make a mistake, the ‘SORRY, THAT’S 
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WRONG?” message will appear, along with your score. If you 
manage to get all of the list of letters right, you’ll be rewarded 
with a ‘““YOU’RE THE CHAMP!!!” message. Here’s the 


10 REM Echo Guich - showing string 
sticing 

15 S=@:CLS 

20 AS=NIDSC"IRFILGTLKTAFCIHSIOEAKCKSEWND 
RULDHJRLDHJRLG",RNDC1)*6t1) 

3Q PLOT 19,13,LEFT$CA$, 1) 

35 FOR G=1 TO SXLENCA$) :-NEXT G:CLS 

4@ LET BS$=KEYS 

5@ IF Bs<"A" OR BS>"2Z" THEN GOTO 40 

55 PLOT 19,13,B$ 

6@ IFBS=LEFT$(A$,1) THEN FOR G=] TO 1@tR 
NDC1)X3@:NEXT G 

65 PLOT 19,13,'°x*"%: FOR G=] TO 100: NEXT 
G 

70 IF BY<>LEFTS$CAS,1IJTHEN GOTO 1198 

8B AS=MNIDSCAS, 2) 

85 IF LENCA$)=]1 THEN GOTO 14@ 

386 S=St] 

35 PING 

188 GOTO 38 

118 PRINT:PRINT :PRINT:PRINT =PRINT" SORRY, 
THAT?S WRONG “ 

115 EXPLODE 

128 PRINT:PRINT" YOU SCORED "3S 

13@ END 

14@ PRINT:PRINT:PRINT' YOU’?RE THE CHAMP 2 
ae 


Loe EAPLODE 
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The variable S, which holds your score, is set to zero in line 15, 
and line 20 sets the string, A$, to a long line of letters, starting 
from arandom position |—6 letters in. This method stops you 
learning the sequence easily, and it is also quick and efficient. 
Line 30 ‘plots’ the first element of A$ at 19, 13 and 35 waits for 
awhile, to give you a chance to see the letter before the screen is 
cleared. The LEN() of astring is its /ength, that is the number of 
characters which make it up, i.e. the string ‘‘HELLO’”’ would 
have a length of five, because there are five letters in the string. 
The short pause that line 35 creates is proportional to the 
number of characters left in the string A$. Therefore when you 
are doing well, and are getting a few correct, the time the letter 
is left on the screen decreases each turn. 


KEY$ 


You may have already noticed the function KEY$ in programs 
before, and you may already have a good idea as to what it 
does. If you were to write a short program like, 19 PRINT 
KEY$:GOTO 19, then run it, the effect would be to print the 
key you were pressing on the screen. KEY$ reads the keyboard 
to find out which key, if any, is being pressed. The advantage of 
KEY$ over INPUT is that there is no need to press RETURN, 
the disadvantage is that KEY$ can only hold one character at a 
time, which is most impractical when you want someone to 
enter their name. Another problem with KEY$ when writing 
fast moving programs is that it is very sluggish, and takes along 
time to autorepeat, we will be learning a much quicker method 
later in the book, but it requires a greater knowledge of the - 
machine to understand, and so for the moment we will stick to 
KEY$. 


To get back to line 49, the string B$ is set equal to KEY$, thenin 
line 58 the computer checks to see if you have pressed a ‘letter’ 
key by finding out whether B$ is ‘less than’ ‘‘A’’, i.e. one of the 
characters from 32 to 64, or it is ‘greater than’ ‘‘Z’’, i.e. a 
character from 92 to 126. If B$ is anything but an uppercase 
letter, then it goes back to line 4 to get another letter. This 


72 GETTING STARTED ON YOUR ORIC 


form of comparison of strings can be used to get things in 
alphabetical order (‘‘SZEBRA’’ is greater than 
“AARDVARK’”’, and ‘‘BEAST”’ is Jess than ‘‘CAMERA’’). 


You can compare strings using equals (=) and ‘anything but’, 
or not equals (< >) as is shown in the next few lines of the 
program. Line 69 compares the key pressed (B$) with the first 
element of A$, and if they are the same, continues through the 
multi-statement line to create a pause, (for anticipation’s sake), 
using the loop G. Line 65 prints an asterisk (*) on the spot where 
the next letter will appear. Line 76 compares B$ with the first 
element of A$ again and, if they are not equal, it sends the 
program to line 119, where you are told ‘‘SSORRY, THAT’S 
WRONGQ’’, the computer then ‘EXPLODE’s’, and your score 
is given. Line 80 strips the first character of A$ off, by using 
MID$(A$,2), and 85 checks to see if you’ ve ‘used up’ A$, and if 
you have, then it sends the action to line 148, where you are 
proclaimed ‘THE CHAMP’. If not, then line 99 increases your 
score, 95 ‘PINGs’ and line 106 sends the computer back to line 
30. 


CHAPTER ELEVEN 
READING DATA 


In this chapter we’ll be looking at three very useful additions to 
your programming vocabulary: READ, DATA and 
RESTORE. We have already come across these commands 
before, but they require a much more detailed explanation. 
They are used to get information stored in one part of the 
program to another part where it can be used. 


Enter and run this program, which should make this a little 
clearer: 

1@ REM READ & DATA 

38 FOR A=1 TO 1G 

4@ READ B 

5@ PRINT B 

68 NEXT A 

?2@ DATA 6,3;84,532, 2,543, 24, 1999, 4, 48598 


Using line 48, the program READs through the DATA 
statement in line 7@ in order, printing up each item of DATA 
(with line 59). 


RESTORE moves the computer back to the first item of DATA 
in the program, as you’ll discover if you modify the above 
program by adding line 55, so it reads as follows: 
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1@ REM READ; DATA & RESTORE 
30: FOR A=) 70 - 1a 

4@ READ B 

5@ PRINT B 

39 RESTORE 


6@ NEXT A 
7@ DATA 6,3,84,532, 2,543, 24, 1939; 4,48598 


It does not matter where in the program the DATA is stored. 
The computer will seek it out, in order from the first item of 
DATA in the program to the last, as our next program (which 
scatters the DATA about in an alarming way) convincingly 
demonstrates: 


1@ DATA 9:REM READ & DATA 

28 DATA 4:FOR A=1 TO S:DATA 8398 
3@ READ B:DATA 73,4:PRINT B 

4@ NEXT A 


READ and DATA work just as well with string information: 


1@ REM STRING READ & DATA 
20 FOR A=1 TO 3:READ AS 
30 PRINT AS:NEXT A 

4@ DATA ORIC,READS, STRING 


You can mix numeric and string DATA within the same 
program, so long as you take care to ensure that when the 
program wants a numeric item that a number comes next in the 
program, and when it wants a string item, it finds it: 
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1@ REM MIXED READ & DATA 
20 READ A,B$,B,C$,A$,BK 
38 PRINT A,B$,B;C$%,A$,BK 
4@ DATA 4,O0RIC,643,HARTNELL; SHAW, 8783 


In our next program, GALACTIC GROCER, written by Tim 
Rogers, the goodies you are trading with start off their lives in 
DATA statements. The relative value of these strange objects 
are stored in the two DATA statements which follow. 


In this program you are the Galactic Grocer, trading such 
interstellar goodies as coal dust, reject soap, aspidistras and 
zinc hub-caps. As you’ll discover, these items are in great 
demand throughout the galaxy. You start out with some money 
and a stock of goods, provided by Galactic Grocery Central, 
and you are attempting to zap around space, trading here and 
bartering there, to return to Central with more goods. On 
arrival, the goods in your hold will be sold for twice the amount 
you paid for them, and a tenth of the profits will go to you. The 
program is set over some 20 years, compressed into a quarter of 
an hour or so by the computer time continuum. 


Out there, in the cut and thrust universe of interstellar 
commerce, you’ll meet other hardnosed Grocers from other 
firms, planets and star systems. They’Il be on their way to other 
points in the known universe, and will be willing to trade with 
you. Keep in mind — when considering purchasing anything 
from wily traders — that the point of the game, is to try and 
stockpile the really pricey merchandise. 

1@@ PA=2 

11@ IN=6 

128 GOSUB 728B8a 

13@ DEF FN RCXJ=INT CRNDC1IX*X)+1 

14@ DEF FN SCXJ=INT CRNDC1)X*X)+1 

145 PRINT CHR$C12): REM CLS 

15@ PRINT CHRS$(4) ;CHREC270"N"SPCC11I)"GAL 
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ACTIC GROCER" 

155 PRINT CHR$(4):REM SWITCH OFF DOUBLE 
HIEGHT 

388 X= 

918 J=PEEK(Q@) 


18280 
18@5 
1018 
1820 
1825 
1032 
1848 
1845 
165@ 
1862 
1078 
18275 
1888 
1838 
1188 
1118 
11208 
1132 
1135 
1148 
1156 
1155 
1160 
1.160 
1178 
1188 


DIM C$C(21) 

DIM O(21) 

Difettaly 

DIM MC21) 

RESTORE 

Gift Peat) 

FOR A=] TO: 21 

PLAY 1,1,1,18 

READ AS 
LCAJ=LENCAS) 
C$CAJ=A$ 

PLOT A,A; "Xk" 

NEXT A 

FOR A=]. TO 21 

IF A<6 THEN READ MCAJ:NEXT A 
eG Bae 

NEXT A 

FOR A=1 TO 21 

PLAY 15151,5A 

READ PCA) 

IF RNDC1)>.85 THEN OCAIJ=FN S180) 
PLOT 38-A,A, "xX" 
NEXT A 

GOSUB 8588 

W=2180 

M=188@0+FN SC18888) 
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11936 GOSUB Sgeae 
1195 Ji=J 
2088 PA=@:IN=6:GOSUB 7gaa 
2010 PRINT "kK xX GALACTIC GRO 
C ER Xk x" 
2020 GOSUB 62aa 
204@ PRINT "Year ",,W 
2058 PRINT "Money", ,CHR$C95) 3M 
206@ PRINT 
2070 FOR A=1 TO 21 
2088 IF OCAJ<>@ THEN PRINT OCA), ,CS$CA) 
2898 NEXT A 
2100 BS="buy" 
211@ GOSUB 3880 
2130 BS="sell" 
2148 GOSUB 32882 
2158 W=W+] 
2168 IF W<2128 THEN 2080 
2178 GOSUB S528aa 
2188 J2=J 
2208 PA=1:IN=7:GOSUB 7088 
2218 PRINT "You have arrived in port," 
222@ PRINT 
2225 €=J1:GOSUB 45a 
2238 PRINT “You started out with “CHRS$C3S 
53) 52$ 
224G PRINT “worth of gcods" 
2245 2=J2:GOSUB 4500 
2250 PRINT 
2262 PRINT “You now have "“CHR$C(95) 52$ 
2270 PRINT "Worth of goods" 
2280 PRINT 
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2290 V=INT CCJ2-J1I7J1*1 Gu) 

230G PRINT “You made "U"% profit" 

2320 IF I<U THEN POKE @,U:I=PEEK(Q) 

2338 PRINT 

23408 PRINT “Best so far :"["2%" 

235@ REM END OF GAME 

240@ PLOT ?,26,"00 YOU WANT TO PLAY AGA] 

N ?" 

2405 Q$=KEYS:IF QS<>"Y" AND Q$<>"N" THEN 
2405 

2410 IF Q$="Y" THEN RUN 

242@ END 

3008 PRINT 

3818 N=FN SC(5) 

3030 S$="buy" 

3040 IF B$="buy" THEN S$="sell" 

3045 PRINT “There are "N"traders wishing 
ia 

3858 PRINT S$" some goods" 

3055 PLOT 13,26,"PRESS ANY KEY" 

3060 IF KEY$<>"" THEN 3862 

3062 IF KEY$="" THEN 3862 

3865 GOSUB 8800 

307@ FOR A=] TO N 

3872 GOSUB 880g 

3075 F=FN SC3) 

3888 X=FN R(21) 

3085 GOSUB 4@@0:IF X=@ THEN 32708 

3098 Y=FN S(190@0) 

3095 P=FN SCY) 

3196 2=FN RC19Q) 

3118 GOSUB 680g 
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314@ 2=INT C2xPCx%)I)7160 
3145 GOSUB 45a@a 
3147 IF POOCXJANDBS="sell" THENPRINT"The 
trader wants more "3; 
3148 JFP>OCXJANDBS="sell"THENPRINT"than 
you have," :GOTO3278 
3158 PRINT “Trader “A"wishes to "S$ 
316@ PRINT P"to "Y5LEFTS$C(CECX),LOXIJI5" a 
3170 PRINT CHR$(95) 3;2$" each" 
3188 PRINT 
319@ PRINT "CYou have "CHR$(95) 5M")" 
31935 PRINT "“CYou have "OCX) ;LEFTSCC$CX), 
LOXJJ")" 
3208 GOSUB 7588 
3201 JFZXP>MNTHENPRINT" You haven’?t enough 
money" :-GOTO327@ 
3285 PRINT "How many to "BS: INPUT US$ 
3218 REM 
3215 U=VAL CUS) 
3228 IF U<P OR Ud>Y THEN 3282 
3225 IF BS="sell" THEN U=-U 
3236 IF U<-OCX) THEN 3282 
324@ IF M-Ux2<=@ THEN 31908 
3258 M=N-Uxk2 
3266 OCX)=OCX)+U 
3270 2AP:WAIT S@:NEXT A 
3275 IF N=@ THEN FOR H=1 TO 15@:NEXT H 
328@ RETURN 
400@ REM 
4005 PRINT “Trader "A"says:-" 
40128 PRINT "?What do you want to "BS"97?" 
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4QKRQ@ INPUT 2$¢ 

4825 IF 2$="@" THEN X=@:RETURN 

4038 FOR B=] TO 2] 

4840 IF2$=MIDSC(C$(BJ,MCBIJ THEN X=B:GOTO 
4108 

4@5@ NEXT B 

4068 PRINT 

4080 GOTO 4822 

94160 IF RNDC1)<.8 THEN X=B:RETURN 

4110 PRINT “Sorry, Trader "A'does not wa 

ni to" 

4115 PRINT S$" any "“MIDSCC$(B),MNCBI) 

4120 xX=@ 

4125 WAIT S@ 

4130 RETURN 

4508 2$=STRS$(2Z) 

4510 FOR R=1 TO LENC2$) 

94520 IF MID$(2$,R,1)="." AND R=LENC2Z$) T 

HEN RETURN 

94538 IF NID$(2Z$,R,1)=".' AND R=LENC2Z$)-1 
THEN 2$=2$1"Q" 

454@ NEXT R 

455@ RETURN 

5800 J=a 

5@1@ FOR A=] TO 21 

580208 J=JtOCAIKPCA)X2 

5030 NEXT A 

504@ J=J4M 

58586 RETURN 

6O@BPRINT :PRINT?PRINT :PRINT :PRINT ?:PRINT 

6068 RETURN 
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7888 PAPER PA 

7018 INK IN 

7020 CLS 

70308 RETURN 

7508 NO=FN RC2Q)-FN RC20) 

751@ MUSIC 1,2,1,@:PLAY 1,0,1,1@ 

7528 WAIT 18 

753@ MUSIC 1,3,1,@:PLAY 1,@4,1,20 

75408 WAIT 28 

7358 RETURN 

8808 IF S$="sell" THEN PA=S:IN=@:GOSUB 7 
G08 :=RETURN 

8010 PA=1:IN=7:GOSUB 7880 

8020 RETURN 

8500 INK @ 

851@ MUSIC 1,3,1;¢6 

8528 PLAY 1,6,1,1@ 

8538 WAIT 28 

854@ INK 4 

855@ MUSIC 1,1,1,9 

8568 PLAY 1,8,1,3@ 

8576 WAIT 32 

85828 INK IN 

8598 RETURN 

3088 DATA TONNES COAL DUST,KG ORANGE Pee 
L,GRANS GRAIN DUST 

9018 DATA GALLONS SILICON INK;BARS REJEC 
T SOAP 

9828 DATA GREEN SMARTIES,EX-DICTATORS, TE 
Si-TUBES 

9038 DATA TU SETS, GOLDFISH 
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9@4@ DATA MISSILES, ASPIDISTRAS, MATCH HEF 
DS,SLIPPERS 

9@5@ DATA CHIPPED COFFEE MUGS,2INC HUB-C 


APS, TOE NAILS 
9268 DATA PEN TOPS,PAPER BAGS, BADGES,NO] 


SES 
9078 DATA 6,5,4,9,6 

39082 DATA 18,18,3,38,.3,.1,15,1,250,3, 16 
217 ee Ce Br me tn ee | 

9@9@ DATA .2,.1,3,23 


Arrays are dimensioned and variables are initialised in the lines 
919 to 1160. The C$ array is filled with your initial supply of 
goods (the coal dust and the like) with the loop from 1949 to 
1080, and a diagonal row of stars is printed (line 1075) to keep 
you amused while this is going on. Line 115@ ensures that 
around 15% of the ‘O’ array will contain numbers generated at 
random between one and ten thousand (using the ‘S’ function 
which was, you’ll recall, defined in line 148). More stars are 
printed by line 1155. 


Once the loop has been traversed, 1165 sends the program to 
the subroutine starting at 850@ which makes a few noises and 
flashes the INK colour a bit. Line 1170 sets the variable W (the 
year) to 2108, and 118 sets up your starting money (variable 


M) to a value somewhere between 1000 and 2000 (using 
function S again). Line 119@ sends the computer to the 
subroutine from line 5060, which works out the value of your 
cargo (J). Line 20@@ assigns values to the PAPER and INK 
colours, then sends the action to the subroutine from line 7000 
to put them in order. 


The subroutine from line 6006 called from line 2029, prints out 
six blank lines before returning to lines 2640 and 2056 where the 
year (W) and your money (M) is printed out. Another blank 
line is printed (by line 2066) then the loop from 2079 to 2698 
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prints out your holdings. The string variable B$ is set to ‘‘buy”’ 
in line 2010, and then the subroutine from 300@ (where the 
program is directed by line 2110) the entire buying and selling 
occurs. Before 3000 is called again, by line 2149, B$ is set equal 
to ‘‘sell’?. The word assigned to B$ determines the word 
assigned to S$ (either ‘‘buy’’ in line 3030 or ‘‘sell’’ in the 
following lines). Both B$ and S$ are used in the print lines from 
315, where you are told that ‘‘Trader 1 wishes to buy...”’ or 
Trader 1 wishes to sell...”’. 


The year (W) is incremented in line 2150, and the next line 
checks to see if 20 years have elapsed since the game began. If 
they have (and W is not less than 2120, as checked by 2169) the 
program ‘falls through’ to the next line, where the final report 
is generated: ‘‘You have arrived in port...’’, and so on, until 
you are told how much profit you made (line 2300). The ‘best 
profit so far’ is calculated, and ‘POKEd?’ into location (@). 


CHAPTER TWELVE 
LIVING MORE 
COLOURFULLY 


You have a colour computer on your hands, and so you should 
make the most of it. We’ll start our investigation of ways to 
improve your programs by referring back to the FAST FOOD 
program which was first introduced in chapter four. 


We have been using colour statements in many of the programs 
you’ve encountered so far, so you may have a pretty good idea 
of how to use the facilities. The Oric has two commonly used 
colour commands, INK and PAPER. INK, as you might 
expect, sets the foreground colour, i.e. the colour we want the 
computer to write in. PAPER, on the other hand, sets the 
background colour. To get the computer to print everything on 
a red background for example, type ‘PAPER 1’, if you want 
the foreground to be white then type ‘INK 7’, and so on. 


Here’s a version of the FAST FOOD program using INK & 
PAPER: 


1@ REM FAST FOOD WITH GLOBAL INK & PAPER 
20 LET A=INTCRNDC13X*4)11 
30 LET B=INTCRNDC1)%7) 


4@ PAPER B:INK ?-B:IFB=8-B THEN INK @ 
5S@ PRINT:PRINT"A IS"A" B IS "B 


CHAPTER TWELVE 85 


6@ PRINT" YOU? VE ORDERED" 

7@ IF A=] THEN PRINT"A HAMBURGER" 

8@ IF A=2 THEN PRINT"FRENCH FRIES" 

9@ IF A=3 THEN PRINT"SPARE RIBS" 

100 IF A=4 THEN PRINT"A THICK SHAKE" 
11@ WAIT 5S@ 

12@ GOTO 2a 

You'll notice that as soon as the PAPER or INK colour is 


called, the whole screen is effected. This is called Global colour 
commands. 


Here is a list of the colour codes on the Oric: 


® Black 

1 Red 

2 Green 

3 Yellow 
4 Blue 

5 Magenta 
6 Cyan 

7 White 


If for, instance, you wanted a yellow background, then you 
would type PAPER 3, if you wanted a Blue ink to go with this 
lovely yellow background, then type INK 4. 


You’ll probably find that you will learn each colour’s number, 
and the need for checking up will soon disappear. 


You may be thinking, this is all very well but what if I want 
more than one paper colour, or more than one ink? This is 
possible, but not as easy to grasp. 


The Oric has a character known as the escape character, there is 
even a button on the extreme left of the keyboard especially for 
it. It has a strange effect on otherwise normal letters, press the 
escape key now, followed by the Q key, surprised? You can also 
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include something like that inside the program by printing 
CHRS$(27) which is the control character, followed by the 
character which corresponds to what you want. Here is a list of 
the characters, and their effect after a escape character has been 
printed. 


@ INK BLACK 
INK RED 

INK GREEN 
INK YELLOW 
INK BLUE 

INK MAGENTA 
INK CYAN 

INK WHITE 


MOMMOAWD> 


SET 


— 


SET 


a! 


SET 

DOUBLE HEIGHT-STEADY-ALTERNATE 
CHARACTER SET 

SINGLE HEIGHT-FLASHING-STANDARD 
CHARACTER SET 

SINGLE HEIGHT-FLASHING-ALTERNATE 
CHARACTER SET 

DOUBLE HEIGHT-FLASHING-STANDARD 
CHARACTER SET 

DOUBLE HEIGHT-FLASHING-ALTERNATE 
CHARACTER SET 

PAPER BLACK 

PAPER RED 

PAPER GREEN 

PAPER YELLOW 

PAPER BLUE 

PAPER MAGENTA 

PAPER CYAN 

W PAPER WHITE 


Don’t worry about those bits in the middle, we’ll talk about 


<CHNMRHT O 2 ZF TAM 


SINGLE HEIGHT-STEADY-STANDARD- CHARACTE] 
SINGLE HEIGHT-STEADY-ALTERNATE CHARACTE 


DOUBLE HEIGHT-STEADY-STANDARD CHARACTE 
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those later. The good bits are the characters from @-—G and 
P-—W. Try pressing the escape key, followed by one of those 
keys and see if the thing you expected to happen, did. Take note 
that the escape character only effects, at most, one line. You 
can put as many escape characters on that line, but they will not 
overlap. Try this new version of FAST FOOD using escape 
character colour: 


1@ REM FAST FOOD WITH COLOUR 

15 PAPER S:INK @ 

2@ A=INTCRNDC1)*4)t1 

3@ B=INTCRNDC1)*5)+1 

4Q PRINT:PRINT "A IS "A" SB 1S-"8 

45 PRINT CHR$(27) ;CHR$(Bt8@) ;"YOU’ VE ORD 


ERED" 

5@ IF A=] THEN PRINTCHR$(27) ;"RA HAMBURG 
ER. 

6@ IF A=2 THEN PRINTCHR$(27) ;"SFRENCH FR 
IES* 


7@ IF A=3 THEN PRINTCHR$(27)3;"TSPARE RIB 
>" 
8@ IF A=4 THEN PRINTCHR$(27)5"UA THICK S 


HAKE" 
3@ WAIT 5@ 
18@ GOTO 28 


Now, to explain the use of colour more fully, we are going to 
take a simple program, and gradually elaborate it, showing 
how adding such things as user-defined graphics can add a 
great deal of interest to your programs. At the end of this 
section, we’ll give you a couple of suggestions to apply if you 
wish to keep improving the program, because, as every 
programmer knows, there is no such thing as a perfect 
program, there is always room for improvement. 
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The program we’re going to use as the core of our development 
work is a standard ‘Duck shoot’ program, in which little 
objects fly across the screen, and you have to try and shoot 
them down. In the first version of the program, the little objects 
are letters, and you are the ‘X’. You fire at the ‘ducks’ by 
pressing the space bar, and you move yourself left using the 
cursor keys, on either side of the space bar, (you move in the 
direction of the arrows on those keys). 


Although there is no time limit on this program, there is a limit 
to the number of shots you fire. In all of the versions of this 
game in this part of the book, you’II see the program starts with 
a limit of 15 shots. The number of shots is deliberately kept low 
in the game, so you will not be able to get a high score just by 
leaving your finger on the space bar, and waiting for the ducks 
to fly into the line of fire. 


Here, then is our first verion. Type it into your computer, and 
run it to get underway. 

1@ REM DUCK SHOOT 

28 SC=@:SHOTS=15:CLS 

38 AS="2XC KD FI TR SKF AS FK- FKKL 
pQ" 

40 ACROSS=15 :-DOWN=14 

5S@ PLOT 1,5,A$ 

6@ PLOT ACROSS-],D00WN,” x " 

728 IF DEEK(?783)=48382 THEN GOSUB 158 

8Q@ PLOT 1,@0,"SCORE "“tSTR#(CSCORE) 

390 PLOT 20,8,"SHOTS LEFT"+STR$CSHOTS)+" 
1@@ IFSHOTS<1THENPLOT?,18,"THAT’?S THE E 
NG oF THE GAME" >END 

11@ IF DEEKC783)=48351 THEN ACROSS=ACROS 
S-] 
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120 IF DEEKC?2833=48255S THEN ACROSS=ACROS 
St] 
130 AS=RIGHTSCAS, B7JLEFTSCAS,; 13) 


148 GOTO 5@ 
15@ SHOTS=SHOTS~-1 
168 IF MID$CAs,ACROSS,1}J=" " THENRETURN 


17@ SC=SCt5S7? 

188 L$=LEFT$C(AS, ACROSS-1) -=RS=RIGHTSCAS, 3 
8-ACROSS ) 

138 AS=L$t" "+R 

20@ RETURN 


You’ll see the letters which are held in A$ (see line 38) moving 
across near to the top of the screen. You (the ‘‘X’’) will be in 
about the middle of the screen when the program starts. You 
can — as we mentioned a few moments ago — move yourself 
back and forth using the cursor keys to get yourself into the 
position which you think gives you the best possible chance. 
When you judge a duck is directly overhead, press the space bar 
to fire your patented anti-duck missile. The number after the 
words ‘SHOTS LEFT?’ (in the top right hand corner of the 
screen) will decrease, and if you have been accurate, the 
number after the word SCORE in the top left hand corner of 
the screen will increase. 


Note, by the way, wherever possible, we have used explicit 
names for the variables within this program. That is, the 
variable name for the shots left is SHOTS, for your position 
across the screen, the variable name is ACROSS, and the 
position down the screen is DOWN. Even though it takes a little 
longer to type long variable names into a program and (of 
course) they use up more memory than do shorter names, 
running out of memory is rarely a problem on your computer, 
and the advantages of using explicit names to keep the purpose 
of various parts of the listing clear outweighs the extra time it 
takes to type them in. 
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If, for example, you were writing a program like this and then 
you decide that it would be better if the ‘X’ was printed further 
down the screen, you would not have to search through the 
program to work out which variable held your ‘‘down’’ 
co-ordinate. If you get into the habit of using explicit names, 
your debugging time will be that much shorter. 


Line 3@ defines the string variable A$ as a long series of letters 
and spaces. The letters can be anything you like; don’t feel you 
have to copy ours. The important thing, however, is that the 
string is 38 characters long. You can check this by running the 
program briefly, stopping it with CTRL/C, then typing in, asa 
direct command, PRINT LEN(A$). If your string is the correct 
length, PRINT LEN(A$), followed by RETURN will give the 
answer 38. 


The string handling, i.e. LEFT$, RIGHTS, MID§, etc., is used 
to move the ducks across the screen. The string A$ holds the 
ducks, as you will have gathered, and is plotted onto the screen. 
Then, using string slicing, a character is taken off one end, and 
placed at the other, printed again and the loop continues. So 
creating a feeling of movement. 


If you are pressing the space bar when the computer gets to line 
7 (and notice the use of the word ‘DEEK’, we’ll cover that 
word later, it is extremely useful), then the action is sent to the 
subroutine at 150, where the value of shots is decreased by one. 
If there is a space at position MID$(A$,ACROSS, 1) then the 
computer RETURNs from the subroutine because you have 
missed the ducks. If there is anything but a space there then the 
computer continues through the subroutine, adding 57 to your 
score, and removing the duck from the string. 


Now all this takes some time to explain, but you’ll find the 
computer does it apparently instantaneously. You press the 
space bar, the score increases by 57 (if you’re a good shot), the 
number of shots drops by one and the duck disappears. You'll 
see that the program continues until when you run out of shots, 
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when the game terminates. Take note of your score at this 
point, and see if you can beat it in subsequent runs. 


Once you have the program running to your satisfaction, and 
you have a pretty good idea of how it works, modify it to read 
like the following program. You do not have to NEW the 
computer. Just compare the program with the following 
listing, line by line, using the EDIT function where necessary 
and also adding new lines in between the old lines. 


1@ REM DUCK SHOOT 

15 PAPER @:INK 1 

16 COL=1 

28 SC=@:SHOTS=15:CLS 

38 AS="2xXC KD FI TR SKF AS FK- FKKL 
DQ" 

4@ ACROSS=15 :DOWN=14 

5@ PLOT 1,5,A$ 

55 PLOT @,5,COL 

56 COL=COLt+1:IF COL>? THEN COL=1 

6@ PLOT ACROSS-1,DOWN,” xX 

2@ IF DEEK(783)=48382 THEN GOSUB 15@ 

8@ PLOT 1,0,"SCORE "“t+tSTRS#C(CSCORE J 

98 PLOT 20,@,"SHOTS LEFT" +STR&CSHOTSI +" 


100 IFSHOTS<ITHENPLOT7,19,"THAT?S THE E 
ND OF THE GAME" =END 

11@ IF DEEK(783)=4835! THEN ACROSS=ACROS 
S=1 

12Q IF DEEKC?83)=482SS THEN ACROSS=ACROS 
St] 

138 AS=RIGHTS(AS, 37 +LEFTSCAS; 1) 

14@ GOTO S@ 

{54. SHOTSeSnolS«) 
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168 IF MIDS CA$,ACROSS,1)=" " THENRETURN 
174 SC=SG+tS7 

180 L$=LEFTSCAS, ACROSS—1) :R$=RIGHTSCAS, 3 
8-ACROSS) 

190 AS=L$1" "+R 

208 RETURN 


Now when you run this, you’ll see an immediate and quite 
striking improvement. Colour certainly adds a lot to any 
program on your computer. Line 15 sets the PAPER (that is, 
the background) colour to black (colour number @) and the 
INK (the foreground colour) to red (INK colour 1). 


Even if we had nothing else, there is a significant improvement 
in the program. You have the score, shots left, ducks and the 
‘X’ all printed in red on a black background, which is far more 
interesting than just plain old black and white. 


The other colour features like the ‘shimmering’ ducks are 
plotted onto the screen, like an escape character colour. 


Apart from the colour changes we’ve discussed, the listing is 
essentially the same as the first listing. However, you can see 
that the few changes that we have made have improved the 
game considerably. We’ll now continue’ with the 
improvements, adding such things as sound. 


1@ REM DUCK SHOOT 

15 PAPER @:INK 1 

16 COL=1:SHOOT:PLAY @,1,1,280@:WAIT 1a@ 
2@ SC=@:SHOTS=15:CLS 

3Q AS="2xXC KD FI TReASKE 3S. “RR ORR 
pDQ" 

4@ ACROSS=15 :DOWN=14 

3@ PLOT 1;,5;A$% 


S35 
36 
5/7 
62 
78 
82 
38 
18a 
118 
S24 
126 
Stl 
138 
140 
158 
168 
178 
18a 
8-A 
138 
200 
218 
a 
220 
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PLOT @,5,COL 
COL=COL+1:IF COL>? THEN COL=1 
PLAY 1,@0,151 
PLOT ACROSS-1,DOWN;," X " 
IF DEEK(783)=48382 THEN GOSUB 15@ 
PLOT 1,@,"SCORE "+STR&CSCORE J) 
PLOT 20,8,"SHOTS LEFT"+STRSCSHOTS)+" 


IFSHOTS<1THEN GOTO 210 

IF DEEK(C783)=48351 THEN ACROSS=ACROS 
IF DEEK(C783)=4825S THEN ACROSS=ACROS 
AS=RIGHTSCAS, 37 tLEFTSCAS; 1) 

GOTO 5@ 

SHOTS=SHOTS~1 

IF MID$CA$,ACROSS,1)=" " THENRETURN 
SC=SCt5S? 
L$=LEFT$(A$, ACROSS-1) :R$=RIGHTSCAS, 3 
CROSS) 

AS=L$1" "+R 

RETURN 

PLOT? s 1@3 "THAT? S- THE -END OF ‘TRE GAM 
EXPLODE -END 


There is very little difference between the second and third 
versions of Duck Shoot, apart from the PLAY and SHOOT 
commands, all is the same. As you know from previous 
chapters, the sound on the Oric adds a great deal of interest to 


the p 


rograms. 


The next version of the game we’ll look at is, as you can see, 
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considerably different from the ones we’ve been examining to 


date. 
12 
12 
15 
16 
28 
38 


56 
ae 
68 
72 
Bo 
38 


188 
118 
S-] 

128 
St] 

138 
148 
158 
162 
178 
188 
8-A 


(It’s also a lot longer). 
REM DUCK SHOOT 
GOSUB 388 
PAPER @:INK 1] 
COL=1 :SHOOT:PLAY @,1,1,2000:WAIT 188 
SC=@:SHOTS=15:CLS 
A$="990 9 Gg 28 z 


7c 
x=] 
6 
6:o 
ira} 
~o 
2 
6oO 


ACROSS=15 :DOWN=14 

PLOT 1,5,A$ 

PLOT @,5,COL 

COL=COL+1]:1IF COL>? THEN COL=1 

PLAY 1,;@0,1,;1 

PLOT ACROSS-1,DOWN," X " 

IF DEEKC783)=48382 THEN GOSUB 158 
PLOT 1,9,"SCORE "“+STR$&CSCORE J 

PLOT 28,8," SHOTS LEFT"+STR&CSHOTS)t" 


IFSHOTS<1 THEN GOTO 218 
IF DEEKC7833=4835] THEN ACROSS=ACROS 


IF DEEKC?833=48255 THEN ACROSS=ACROS 


AS=RIGHTSCAS, B7I+tLEFTECAS, 1) 


GOTO 5@ 

SHOTS=SHOTS~-1 

IF MIDSCA$,ACROSS,1)=" “ THENRETURN 
SC=SCt5S? 


L$=LEFTS( AS, ACROSS-1) -R$=RIGHTSCAS,; 3 
CROSS) 
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198 AS=L$t" "+tRF 

268 RETURN 

21@ PLOT7,1@,"THAT’?S THE: END OF THE GAM 
a 

220 EXPLODE :END 

308 FOR A=46080+(8xXASC("2")IJ TO 46088 +C 
BXASCC"S")+7) 

31@ READ US:POKE A,US 

32@ NEXT A?:RETURN 

338 DATA @,19,54,38,14,3,0,0 


You may be wondering why the letters in line 3@ have been 
changed to exclamation marks (!), and if you have already run 
the program, you may be wondering why the exclamation 
marks are now little ducks. The answer is simple, the ducks 
have been user defined, the exclamation mark has been 
re-shaped as a duck. 


It’s very simple to define a graphic. We’ll take you through the 
way we created the alleged duck, and from this explanation you 
should be able to produce anything you like. 


The basis of any user-defined graphic (UDG) is a six by eight 
grid, like this one: yo 277%) Je 

TAT 
EEZ24ER 
| f4| | A 
Z| | WA) 





VAZAT VAYZ, 
B7ZABEZE 


: 6&2 | say ce 
To work out a graphic, you simply fill in the squares in this grid 
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which you wish to print as solid dots in the final graphic. Our 
duck (in grid form) looks like this: 





If you look to the lines from 30@ onwards in the most recent 
listing of DUCK SHOOT, you’ll see a loop, which includes a 
READ statement and the disturbing looking line, POKE A,US 
etc. This needs detailed explanation. 


The shape of each character is held in the area of memory 46089 
to 48126. You will probably only be concerned with the 
locations 46336 (the start of the space character, to 47193 (the 
end of the ‘hash’ graphic). Each character takes 8 locations, 
each location holds a number for each row of the graphic. To 
find the start location for a particular graphic, i.e. ‘‘£’’, a short 
and easy way is to say, as a direct command; 


PRINT 46080 + (8* ASC(‘‘£’’)) 


You will notice that the loop in line 300 begins at the start 
location for the exclamation mark, and finishes 7 locations on, 
the end of the exclamation mark. 


This short method of finding the start location for a particular 
character can be very useful when you want to define more than 
one graphic, as long as the characters you want to be redefined 
follow each other, (see the reference chart at the end of the 
book), then you could, if you wanted to redefine the ‘‘A’’ and 
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the ‘‘B’’, say ‘FOR A=46880+(8*(ASC(‘‘A’’)) TO 
46080 + (8* ASC(‘‘B’’)) + 7’ followed by a similar routine as the 
one in subroutine 300. 


The idea of locations, PEEK, POKE, DEEK and DOKE will be 
covered in the last chapter of the book. 


Now we have learned where to put the information about our 
new characters, we now need to know what to put there. 


As we have mentioned before, each character takes up eight 
locations for the eight rows of information, and in each 
location there is a number between 9—63 which holds the 
information for six columns across (it actually holds 
information for eight columns, but we only use six of them), 
stored in binary. 


A binary number is a weird looking thing, it’s all @’s and 1’s, 
nothing else. This is very useful as far as our graphic is 
concerned, as when writing down the binary number that we 
want to poke into a particular location, we can just skim across 
a row and, if a square is empty, we write a zero and if it is full 
then we write a 1. Our duck looks something like this in binary 
form: 


ROW | 800000 
ROW 2 919011 
ROW 3 110110 
ROW 4 611116 
ROW 5 061110 
ROW 6 060011 
ROW 7 908000 
ROW 8 660000 


Can you see the pattern? 


You may already have spotted the problem about ‘how does the 
Oric know when you’re talking about binary rather than 
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decimal?’ Well it can’t. You have to convert between binary 
and decimal before you can ‘POKEF’ into the required location. 


Converting between decimal and binary is not an easy thing for 
the beginner, but it is a useful thing to learn. Look again, at our 
duck. Study this diagram carefully, as it holds a lot of useful 
information: 


VAS ae Nossa a ag 


=0 
244+21420=19 
254+24+224+21=54 
24+234+224+21=30 
23+22+21=14 
21+29=19 

=0 

=0 





ee 8 Z 


16 4 1 


The only thing that you really need to remember is the numbers 
along the bottom of the grid. As you work your way along each 
row, if a block is set, that is filled in, then add the 
corresponding column number, i.e. in row 2 of the duck the 
decimal number is 16+2+ 1 because those columns are set. 


We can understand that this might be a little confusing, so here 
is a program which will do the conversion for you: 

1@ REM BINARY TO DECIMAL CONVERTER 

2@ REM PETER SHAW 1983 

3@ INPUT “BINARY " ;B$:T=@ 

4@ IF LENCB$)<>6 THEN 32 

3@ FOR A=@ TO 5 
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60 IF MID$(B$,6-A;1)="1" THEN T=Tt+C2-A) 
7@ NEXT A 
80 PRINT “DECIMAL "3;T:PRINT 
398 GOTO 32 
That brings us to the end of this series of DUCK SHOOT - 
games. There are five things you can do to further develop the 
program: 


— Cut the number of shots available to make the program even 
more challenging 

— User define the ‘‘X’’, it would be best to include it as a separate 
subroutine which is called right at the start of the game. 

— Add a ‘high score’ feature! 

— Allow the computer to detect when all the ducks have been shot 
(this will happen when A$ is just full of 38 spaces) and when 
they have all been shot, to give a bonus, more shots and a new 
row of duck to fire at. 

— Add anextra line of ducks (B$) flying in the opposite direction. 
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An array is used when you want to create a list of items, and 
refer to the item by mentioning just which position in the list it 
occupies. You set up an array by using the DIM command. If 
you type in DIM A(5), the computer will set up a list in its 
memory called A, and will save space for five items: A(1), A(2), 
A(3), A(4) and A(5). These, by the way, are called elements of 
the array. 


When you dimension, or set up, an array, the computer creates 
the list in its memory, and then fills every item in that list with a 
zero. So, if you said to the computer, PRINT A(1) or PRINT 
A(4) it would come back with 8. You will fill items in an array 
with LET (such as LET A(2) = 19@@) or using READ and 
DATA as we saw in Chapter eleven. Once you’ve filled a 
position in the list, whether you filled it with LET or READ, 
you can get the computer to give you the contents of that 
element of the array, by simply saying PRINT A(2). 


The next program dimensions (this, as we said, simply means 
sets up, or creates) an array called A, with room for fifteen 
elements. The B loop from lines 3@ to 5@ fills the array with 
random digits between zero and nine, and then prints them 
back for you with the loop from lines 68 to 98. 
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1@ REM ARRAYS 
2@ DIN ACI5) 
38 FOR B=] TO 15 
4@ ACBJ=INTCRNDC13*3) 
5@ NEXT B 
6@ FOR 2=] TO 15 
76 PRINT "ACTS" 3) ITS “ACSI 
80 WAIT 10 
3@ NEXT 2 


This is called a one-dimensional array, because a single digit 
follows the letter which ‘‘labels’’ the array. You can also have 
multi-dimensional arrays, in which more than one number 
follows the array label after DIM. In the next program, for 
example, the computer sets up a two-dimensional array called 
A, consisting of four elements (that is, it is dimensioned by 
DIM A(4,4) as you can see in line 20: 


1@ REM MULTI-D ARRAYS 

15 INK 7:PAPER@ 

O-.Cks 

28 DIM AC4,4) 

38 OR B=1 TO 4 

4@ FOR C=1 TO 4 

5@ ACB, CJ=INTCRNDC13*39) 

6@ NEAT C,B 

7@ PRINT CHR$C€27)3"T 12034" 
8@ FOR B=1 TO 4 

9@ PRINT CHR$(27) ;"T"BSCHRSC27)"P" ; 
188 FOR C=1 TO 4 

11@ PRINT ACB;C);3 

12@ NEXT C 

13@ PRINT 

14@ NEXT B 


When you run it, you will see something like this: 
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You specify the element of a two-dimensional array by 
referring to both its numbers, so the first element of this array 
(the number 7 in the top left hand corner of the printout above) 
can be referred to as A(1,1). The @ at the end of the line is A(1,4) 
and the 8 on the bottom row is A(4,3). 


Your computer also supports string arrays. Enter and run this 
routine to see a string array in operation: 


1@ REM STRING ARRAYS 

2@ DIM ASS) 

3@ FOR B=] T0 5 

48 A$(BIJ=CHRSCINTCRNDC1)*26)+65) 
2@ NEXT B 

6@ FOR B=1 JO 5 

7@ PRINT “ASC"B") IS "“ASCB) 

8@ NEXT B 


You need not only put one letter into each element, you can, if 
you wish, use much longer strings, as in this example: 

1@ REM STRING ARRAYS 

28 DIN AS$CS) 

3@ FOR A=1 TO 5 

4@ READ AS(A) 

5Q@ NEXT A 

6@ FOR A=1 TO 5 

7@ PRINT "ASCVA"D IS ?"ASCAI"?” 

BQ NEXT A 
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3@ DATA ORIC,ONE;STRING, ARRAYS; ARE DEMON 
STRATED HERE 


ESCAPING FROM MURKY MARSH 


This program demonstrates the use of a two-dimensional array 
for ‘‘holding’’ an object and for printing it out. The object in 
this case is a miniature dragon, who is trying to escape from 
Murky Marsh, indicated in this program by a square of dots. 
Our dragon is very stupid, and moves totally at random within 
the marsh. He is free if he manages to stumble onto the outer 
right or bottom two rows. 


The dragon in this program demonstrates Brownian motion, 
the random movement shown by such things as tiny particles in 
a drop of water viewed under a microscope, or of a single atom 
in a closed container. Brownian motion explains why a drop of 
ink gradually mixes in with the water into which it has been 
placed. 


Here is the program listing: 

1@ REM DRAGON’S LAIR 
2@ DIM AC1G,;, 10) :-M=a 
38 GOSUB 58a 

4@ X=INTCRNDC1)*2) 

5@ IF X=@ THEN P=Pt]l 
6@ IF X=1 THEN P=P-1 
7@ X=INTCRNDC1) 2) 

8@ IF X=@ THEN G=Q+] 
39@ IF X=] THEN Q=Q-] 
10@ IF Q<1 THEN Q=Q+t]l 
11@ IF P<1 THEN P=Ptl 
128 M=MN+1 

12] CLS 

138 PLOT 3,3,"Attempt "+STR$(MIt+" % 
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419 
415 
420 
432 
440 
458 
462 
470 
486 
498 
4935 
588 
4 

518 
528 
538 
342 
558 
568 
578 
58a 
68a 
612 
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ACP; Q)=-13 
PRINT :PRINT =PRINT:PRINT :-PRINTTABC1 7) 


FOR X=] TO 16 

FOR Y=1 TO 1@ 

PRINT CHRSCACX; Y3+46); 
NEXT Y 

PRINT:PRINT TAB(17)3 
PLAY @,1,1,;1@:NEXT &X 


ACP; Q)=@8 

IF Q>8 OR P>8 THEN GOTO 68@ 

GOTO 4@ 

Q=INT CRNDC1)*3)+4:P=INT CRNDC1IX33+ 


FOR B=46@80+(8x33) TO 46880+ (8x33) 17 
READ US 

POKE B,US 

NEXT B 

PAPER @ 

INK 6-:CLS 

RETURN 

DATA @, 16,58; 31,46,7,6, 30 

PRINT :PRINT :PRINT:PRINT -PRINT 

PRINT "“Wheu...Free atlast"; 


DAVY JONES’ LOCKER 


You can now relax with our next game — FULL FATHOM 
FIFTY — which uses two arrays (B and D) to store the player’s 
scores and dice rolls respectively. It is a simple game. You and 
the computer are in a race to roll a total of 5@ or more. You roll 
two dice at once, but the only time you score and get the total of 
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the dice roll added to your accumulating total, is when both 
dice come up with the same number. 


You should know enough about how programs work at this 
stage to be able to determine what each section does, so we will 
not explain this relatively simple program. Get it up and 
running and decide for yourself how each section works. You’ll 
possibly gain more from the program by working it out 
yourself rather than having it explained in detail by us. 


Here is the program listing for Full Fathom Fifty: 


1@ REM FULL FATHOM FIFTY 

15 PAPER @:CLS:INK 2 

20 DIM BC2):DIN DC2):DIM AS$C38) =ROUND=1 
3@ FOR A=l1 TO 2 

4Q@ PLOT 8,5,"Full Fathom Fifty" 

5@ PLOT 93,24,"Round number “+STR¢CROUND) 
55 PLOT 13,1@,"ORIC: °+STR$CBC1I) 

56 PLOT 12,12, "HUMAN: “+STR#CBC2)) 

6@ IF BC1)>49 OR BC2)>49 THEN 238 

7@ If A=1 THEN PLOT 9,14,°MY TURN TO ROL 


L g" 
8Q@ IF A=2 THEN PLOT 8,14,"PRESS ’?R’ TO R 
OLL" :GET AS 


90 2AP:2AP:2AP 
1@@ PLOT 1,14," 


11@ FOR C=] 10 2 

12@ PLOT 8,14,"ROLLING DIE No. "+STR$(C) 
130 FOR E=1 TO 1@:EXPLODE :WAIT AXS:NEXT 
E 

14@ DCCJ=INTCRNDC1)x*6)+1 
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15@ PLOT 5,14," IT CAME UP "+STR$ 
CE) " 

166 PING:WAIT 18@ 

165 NEXT C 

166 WAIT 188 

17@ IF DC13<>DC2) THEN PLOT 8,14, "NO DOU 
BLE-NO SCORE" 

18@ IFDC1)=DC2)THENPLOT8, 14, "DOUBLE®2 SC 
ORES "+STR$C3xXDC133)-:BCAIJ=BC 

AJ+3xXDC1) 

185 WAIT 158 

19@ SHOOT:PLOT 1,14," 

‘218 NEXT A 

2206 ROUND=ROUND+1:GOTO 38 

236 PLOT 3,24,"And the winner is ,....., - 
235 WAITS@ 

240 IF BC1)J<BC2) THEN PLOT 28,24, "YOU 228 
256 IF BC1)>BC2) THEN PLOT 28,24,"ME 98" 
266 FOR A=] TO 18:EXPLODE:WAIT AX1@:NEXT 


Here’s how the program can look: 


Full Fathom Fifty 


ORIC: 3 


HUMAN: 47 
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PRESo: 7 i? 70 ROLL 


Round No, 8 


CHAPTER FOURTEEN 
LET THE GOOD 
GRAPHICS ROLL 


Your computer has a very wide range of graphic abilities, and 
in this chapter, we’ll introduce you to those abilities. After the 
introduction of each function, we’ll give you a program to 
demonstrate its use. 


These demonstrations should be seen only as introductions to 
the graphics potential of your computer. Experimentation will 
demonstrate just how far you can stretch the Oric. 


PLOT LX,LY,CN 


Plot, as you will have gathered from previous chapters, can be 
used to put information at a specific point on the screen. But 
plot can also be used to put dots or colour onto the screen. 
Before you can plot onto the screen in single blocks, it is best to 
put the computer into the correct LORES mode. For normal 
operation, and normal plotting this should be LORES @, but 
when you want to use the alternate character set, then you need 
to use LORES 1. The numbers which follow the PLOT 
command are: 


LX — the X co-ordinate for the low-res. screen 0—38 

LY — the Y co-ordinate for the low-res. screen 0—26 

CN— the ASCII value of the character, or control 
character to be printed. PLOT can be used in the 
same way as an escape character. 
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Run the next program, entering numbers between zero and 38 
for the X value, and zero and 26 for the Y value. This program 
plots CHR$(17), (the control character for a red background), 
onto the co-ordinates X,Y: 


1@ REM PLOT 
2@ INPUT “ENTER & me a. 
3@ INPUT “ENTER Y Br eg 


4@ CLS:LORES @ 
S@ PLOT X;Y;17 
68 GOTO 28 


You can get the computer to generate PLOT co-ordinates at 
random, and then ‘reflect’ them into each of the four corners of 
the screen as our next program convincingly demonstrates: 


1@ REM BUTTERFLY PLOT 

15 LORES @ 

28 X=INTCRNDC1JX19)+t1 

3@ Y=INTCRND(C1)*13) 

46 FLOT X,7Y;,18 

5@ PLOT 38-X%,7Y,18 

68 PLOT X;26-Y,18 

?@ PLOT 38-xX,26-¥18 

88 GOTO 20 

Add colour, and see how extraordinary the result can be: 


1@ REM BUTTERFLY PLOT Mk II 

12 REM PRESS ‘ANY KEY TO -CLEAR SCREEN 
1S LORES @ 

28 X=INTCRNDC1)*19)+1 

Zo 4F KEYS<3""~ THEN LORES<O 

38 Y=INTCRND(1)*13) 

35 C=INTCRNDC1I*73+17 
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4@ PLOT X,Y;C 

6@ PLOT *;26-Y,;C 

7O: PLOT 38-4; 26-1 C 
88 GOTO 20 


A HIGHER GRAPHIC ABILITY 


You may have thought that the PLOT blocks were a little large 
to be any real use in graphic programs. Most of the time you 
will find that they are much too large. Your Oric is equipped 
with a command which will change your whole outlook on life, 
HIRES, which stands for High-Resolution. When the 
computer is given this command it does a very weird thing, try it 
and see. Type HIRES followed by RETURN. Did you see that 
flash? That was the computer changing from the crude, 38 by 
26 resolution display to the much finer, and much more fun, 
239 by 199 display. 


FINER PLOTTING 


In this HIRES mode, you cannot use PLOT, you need another 
command. Of course, this command is available, but can be a 
little confusing at first. CURSET HX,HY,FB; 


HX — the X co-ordinate for the Hi-res. screen @—239 
HY — the Y co-ordinate for the Hi-res. screen @— 199 
FB — the Foreground/Background number (as follows) 
In present background INK 
1 In present foreground INK 


Invertion between present background and foregrou 


INK’s 
3 Null, has no effect on display. 


When you ‘curset’ a point onto a high resolution screen you will 
notice an immediate difference, how small the point is. Before 
you can fully realise the potential of the CURSET command, 
you will have to try these short programs which ‘curset’ a series 
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of mathematical curves onto the screen, using the functions PI, 
(n), SIN, (sine) and COS (cosine) to create a wonderful display. 


18 
20 
30 
4@ 
5@ 


18 
20 
30 
48 
5@ 


18 
26 
38 
40 
38 
6a 


18 
2 
38 
42 
5@ 
6 
70 


18 
20 


REM SIN CURSET 

PAPER @:HIRES:INK 6 

FOR A=@ TO 2xPI STEP .@1 
CURSET33xAt17, 100+1@QXSIN(AI; 1 
NEXT A 


REM COS CURSET 

PAPER @:HIRES:INK 6 

FOR A=@ TO 2xPI STEP .@1 

CURSE T33xA+17, 100+1@@XCOS(A); 1 
NEXT A 


REM SIN“COS CURSET 

PAPER @:HIRES:INK 6 

FOR A=@ TO 2xkPI STEP .@@9 
CURSE T33xXA+17, 1@@+1@@xXCOS(AJ); 1 
CURSET33XA+17, 108+1@@XSIN(AJ, 1 
NEXT A 


REM STARFLIGHT 

PAPER @:HIRES:INK 5 

FOR B=1@ TO16@ STEP 20 

FOR A=@ TO 2xPI STEP .@]1 
CURSET 1@xA+B, 8@XCOSCAJ+11@; 1 
CURSET 1@xXA+B, B8@XSINCAJ+11@0;1 
NEXT A;B 


REM OVAL 
PAPER @:HIRES:INK 5 
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38 FOR A=1 TO 1@5 STEP .3 

4@ B=PIxXA/75@:C=95xXCOS(BJ+125 
5@ D=79XSIN(CBJ+83 

6@ CURSET C;D;1 

7@ CURSET C72; 051 

8@ CURSET C,072,1 

39@ CURSET C/2,D72;1 

1@@ NEXT A 


DRAW RX,RY,FB 


Draw is a very useful command on the Oric, it allows you to 
draw a line from the last point you ‘curseted’ or drew to, toa 
point on the screen RX,RY plus the current cursor 
co-ordinates. 


RX — Relative draw X co-ordinate 
RY — Relative draw Y co-ordinate 
FB— As for CURSET. 


In our firsts DRAW program, the computer ‘cursets’ an X,Y 
position (chosen at random by the subroutine from line 79), 
then draws three lines from this, ‘curseting’ X,Y after each line 
is drawn to ‘restart’ the new line from the same position as the 
other lines have used for a beginning point. 


1@ REM DRAW 

15 PAPER @:HIRES:INK 6 

2@ GOSUB 72 

3@ CURSET X,Y,1:DRAW X,199-Y,1:WAIT 20 
4@ CURSET X,Y,;1:DRAW 239-X,Y,1:WAIT 20 
5@ CURSET X,Y,1:DRAW 239~-X,199-Y,1:WAIT 
28 

6@ GOTO 20 

7@ X=RNDO1IX117 

80 Y=RNDC1)x39 


3 
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WAIT 18 


18@ RETURN 


Our second draw program adds a little colour: 


12 
1S 
20 
32 
40 
38 
20 
68 
72 
8B 
38 
35 


REM DRAW I] 

PAPER @:HIRES:INK 6 

GOSUB 72 

CURSET X,Y,;1:DRAW X,199-Y,1:WAIT 20 
CURSET X,Y,1:DRAW 239-X,Y,1:WAIT 28 
CURSET X,Y,;1:DRAW 239-X,199-Y,1:WAIT 


GOTO 20 

&=RNDC 13117 
Y=RNDCi 3x99 
WAIT 18 

INK RNDCO1)*? +1 


10@ RETURN 


This can be further developed to produce the dynamic program 
WARP SPEED: 


18 
20 
38 
40 
3@ 
68 
70 
8 
38 


REM WARP SPEED 
PAPER @:HIRES:INK 6 
*=RNDC1)*117 
Y=RNDC13*99 

CURSET 117,99,@ 
DRAW X37, 1 

CHRSET 117535358 
DRAW-%; Y; 1 

CURSET 117,99,@ 


188 DRAW X,-Y;1 
Lie CURSE FP 417;939508 
12@ DRAW-X,-Y,; 1 
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13@ PATTERN RNDC13X255 
14@ GOTO 38 


In Warp Speed, a point is ‘curseted’ in the middle of the screen, 
and then four lines are drawn out in a symmetrical form. Line 
13@ holds a command we haven’t seen before, PATTERN. 
This new command changes the build up of the drawn line. You 
remember how we create one row of binary numbers to 
represent blocks in a row of a UDG? well the DRAW line is 
built up in a similar way, only using a row with eight columns 
instead of 6. What line 13@ is doing is choosing a random 
number to make the drawn line less ‘solid’. 


Our next program, based on one written by Jeremy Ruston, 
uses CURSET and DRAW to remarkably good effect: 
1@ REM Urban Pacifier 

2@ REM Based on ’?String Art? 

3@ REM by Jeremy Ruston 

4@ PAPER @:HIRES:INK 6 

S@ X=INTCRNDC1)X*239) 

6@ Y=INTCRNDC1)*199) 

7@ L=INTCRNDC1)*239) 

8@ M=INTCRNDC1)*199) 

3@ U=15:U=7 

1@@ DEF FN RCXJ=INT CRNDC1I*X) 
11@ GOSUB 278 

12@ NUM=NUM-1 

130 IF NUMN=@ THEN GOSUB 272 

14@ CURSET X;Y;1 

15@ DRAW L-x,MN-Y, 1 

16@ PLAY 1,;80,1,1@ 

17@ IF XtA>238 OR X+A<1 THEN A=-A 
186 IF Y+B>198 OR Y+B<1 THEN B=-B 
190 IF L+€>238 OR L+C<1 THEN C=-C 
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200 IF Mt0>198 OR MtD<1 THEN D=-D 
21@ PLAY @,15,1,10 
220 X=XtA:Y=Y+B 

238 L=L+C:M=M+D 

24@ CO=FN R(200) 

25@ IF CO<4 THEN RUN 
268 GOTO 120 

2786 A=FN RCU)J—-U 

288 B=FN RCUJ-U 

2980 C=FN RCUJ-U 

380 D=FN RCUJ-YU 

31@ NUM=FN RC20)+18 
32@ INK RND(O1)*?7+1 
338 V=RNDC13x*6+7 

34@ RETURN 


CIRCLE R,FB 


Not only can your wonderful machine draw lines here, there 
and everywhere, it can also draw circles! Circle is quite simple 
to use. First of all you ‘curset’ the center of the circle where you 
want it on the screen, then you tell the computer to draw a 
CIRCLE radius R, Foreground/Background colour (see 
CURSET). 


The next two programs both use circle, the first draws them 
randomly about the screen, while the second also employs the 
command PATTERN again to produce a dotted circle outline. 


1@ REM CIRCLING AROUND 
20 PAPER @:HIRES:INK 6 
38 X=INTCRNDO1)*179)+30 
4@ Y=INTCRNDC1)*138)+38 
9@ R=INTCRNDC1)*303+1 
6@ CURSET %,7Y;@ 
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70 
oa 
Ba 


12 
208 
38 
40 
5 
68 
65 
72 
fa 
8a 
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CIRCLE R;1! 

IF RNDO1)>.97 THEN HIRES 

GOTO38 

REM CIRCLING AROUND WITH PATTERN 


PAPER @:HIRES:INK 6 
X=INTCRNDC1)*179)+328 
Y=INTCRNDC1)X138) +36 
R=INTCRNDC13*3@)+1 
CURSET X,Y;@ 

PATTERN RNDC1)X255 
CIRCLE R;1 

IF RNDC1)>.97 THEN HIRES 
GOTO38 


MULTI-COLOURS 


You are generally restricted to eight colours on your Oric, 
(counting black and white as colours). However, with the use of 
user defined graphics, and the plot command, we can easily mix 
a few colours to produce some attractive hues. 


18 
22 
38 
4 
5@ 
62 
78 
8a 
38 


REM RING THE CHANGES 
PAPER @:INK 6:CLS 
POKE 46344; 21 

POKE 46345, 42 

POKE 46346, 21 

POKE 46347;42 

POKE 46348, 21] 

POKE 46348; 42 

POKE 46349, 2] 


188 POKE 46358, 42 
118 Ag="9" 
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12@ FOR T=1 TO 6:AS=AStAS:NEXT T 

138 AS=LEFTSCAS, 33) 

14@ FOR A=17 TO 23 

1586 FOR B=@ TO 7 

155 PLOT 8,4,"BACKGROUND "+STRS$CA~-17) 
16@ PLOT @,Bt+10,A:PLOT 1,B+18,B:PLOT 2,B 
+10, A$ 

165 PLOT 36,B+t1@,16:PLOT 37,Bt1@,STR¢(B) 
178 NEXT B 

186 PLOT 18,26,"PRESS A KEY":GET Ag 

19@ NEXT A 

208 GOTO 14@ 


DO NOT ADJUST YOUR SET 


This program by Paul Holmes demands two user-defined 
graphics to create a rather pretty display, useful if you want to 
tune your T.V. into the best picture. 


1@ REM DO NOT ADJUST YOUR SET 

20 REM Paul Holmes 

3@ RESTORE 

4@ FOR A=46@8G+(8XASC("#"IJJ TO 46088+(8x 
ASCC"$"J+7) 

5@ READ US:POKE A,US 

SS NEXT A 

56 [=@ 

68 DATA 7;737373;73737,7;62,62,62,62,62,6 
2,62,62 

7@ PAPER @:INK 7:CLS 

25 BS=CHR$(126)+CHR$C126)+"#HH#"+CHRSC12 
6)+CHR$C126) 

82 FOR 2=1 TO 6 
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9@ FOR J=1 TO 3 

188 PRINT TAB(22)CHR$(27) ;CHRS(2+8B) ;"$¢ 
$e"; 

118 PRINT CHR$(27) ;CHR$(2+81} 3B jCHR$(27 
) ;CHR$(2+88) ; 

128 PRINT" $$$$"CHR$(27) ;CHRS(8B) 

138 NEXT J,2 

14@ PLOT 3,25,"PRESS A KEY FOR NEXT INK 
COLOUR" 

158 GET As 

162 INK | 

165 PLOT @,25,7:PLOT 1,25, 16 

178 I=I+1:1F I=8 THEN I= 

182 GOTO 148 

OTHER HIRES COMMANDS 


Less used, but still available are the commands like CURMOV, 
CHAR and FILL. CURMOV X,Y,FB is just like CURSET 
apart from the fact that X,Y are relative to the last point set. 
CHAR X,S,FB draws a normal, or alternate character on the 
HIRES screen at the last point set. S is the character set, (@ for 
standard, i.e. LORES @, and | for alternate, i.e. LORES 1), X 
is the ASCII code for the letter or character to be printed, and 
FB is normal Foreground/Background. 


FILL R,CC,N this command ‘paints’ in an area of the screen 
with a particular colour (as specified by the N, i.e. as in 
PLOTting colour). Note, when you wish to return back to 
ordinary character, low res. display, type TEXT followed by 
enter. 


To get the most out of your graphics it is best if you experiment, 
apart from it being highly productive and educational, it also 
gives you some satisfaction to write some programs, rather 
than typing in ours all the time. 
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GETTING TAPED 


You may have already realised that when you turn off your 
computer after a day working on it, you lose what you had 
typed in so laboriously. This need no longer be a problem, all 
you need is a blank cassette tape and a tape recorder which has a 
five-pin DIN socket. You should find amongst the goodies 
which came with your Oric, a three-pin DIN to a three-pin DIN 
connector, take this out and plug one end into your cassette 
recorder. The other end should be plugged into the right hand 
socket, (looking from the back), of your Oric. We are now 
ready to learn about saving programs to tape. 


CSAVE 


Put your blank cassette tape into the recorder, then type in this 
short program: 


1@ REM CSAVE TEST 

20-PRINT “THIS IS: 'A -CSAVE TEST" 
38 REM 

4@ REM 


Type, as a direct command: 


CSAUE "TEST" 
DO NOT PRESS RETURN YET! 


Press Record and Play on your cassette recorder, and wait for 
the leader to be wound into the tape so that you are recording 
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on the tape, not the clear plastic at the start. Now you can press 
RETURN. 


After a short pause, you should see the message 
“SAVING ... TEST”’’ appear in the top left hand corner of 
the screen, this tells you that your program is now being 
converted into sound which is being recorded onto your blank 
tape. 


When the saving is complete, the message ‘Ready’ should 
appear. 


That’s all very well, but how do you get that program back into 
the computer? 


CLOAD 


Rewind your tape, type NEW followed by RETURN on your 
computer and LIST the program, just to check there is nothing 
left in memory. 


Type, as a direct command: 
CLOAD "TEST" 


The message ‘Searching ...’ will appear in the top left again. 
Press play on your recorder, and set the volume to about three 
quarters. After a few seconds, with any luck, you should see the 
message ‘Loading ... TEST’. Once it has loaded, list the 
program and check that there are no errors in the listing, if there 
are rewind the tape, choose a different volume setting and 
re-cload the program. When you make a successful CLOAD, 
mark the volume on your tape recorder so that you don’t have 
to fiddle around every time you want to load a program. If you 
cannot get the tape to load after many tries, then there isa much 
more reliable, but a lot slower way of saving and loading. Get 
back to the original TEST program, and set the recorder and 
computer up as if you were going to make a normal CSAVE. 
Type as a direct command: 
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CSAVE "TEST",S 
And carry out the necessary actions, i.e. record/play on the 
tape, etc. 


To load a program which has been ‘super saved’, (i.e. saved ata 
slower, but much more reliable rate), type; 

CLOAD “TEST",S 

MORE TRICKS WITH LOAD AND SAVE 


If, when you save at the normal rate, you include the word 
AUTO after the quotes, i.e.; 


CSAVE "TEST",AUTO 


then when you load the program, using; 


CLOAD "TEST" 
it will run automatically. Try it with the TEST program. 


You can also save areas of memory. The screen is an area of 
memory called the display file. The display file for a low-res. 
screen is found from 48006 to 49119, you can save this area of 
memory by typing; 


CSAVE "SCREEN", A48908,E491139 

You can, in fact, save any area of memory you wish. To re-load 
the SCREEN, type; 

CLOAD" SCREEN"; A48880 


This ends this short chapter on saving and loading. You can 
now prepare for the next chapter armed with as many blank 
tapes as you can get hold of. It contains many games, all worth 
a good save. 


CHAPTER SIXTEEN 
MORE GREAT GAMES 


In this chapter, we’ll be giving you the listing of a number of 
major programs. The notes on these will not be as extensive as 
you’ve had before with some of the programs in previous 
chapters, but the introductions to the programs will highlight 
some of the more interesting programming techniques used. 
Examination of the listings will give you a number of ideas you 
can apply to your own programs. 


BAGATELLE 


This is a simplified pinball machine, in which you and the 
computer take it in turn to roll diamond shaped balls down a 
frame which contains a series of numbers and letters. Your 
score tends to increase each time you hit an obstacle on the way 
down the frame, and the ball will bounce off the obstacles, 
increasing your chances of hitting even more of them. Hitting 
the sides of the frame, or bouncing around on the bottom, can 
cost you small penalties. In general though, each time the ball 
hits something your score will increase. 


If you look at the sample printouts which follow this 
introduction, you’!l see the numbers 1 to 9 along the top of the 
play area. 


You start your ball rolling down the frame from any one of 
those. You and the computer have five balls each, to roll down 
the Bagatelle frame, and you take it in turns to do so. You have 
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the first roll. Then the computer will tell you which ball it 
intends to roll down the frame, and then roll this ball. 


Here are some sample printouts; 


123456789 
7 N 
7 k aye \ 
/ \ 
72K 2 KX SN Human: 113 
ae \ 
“ J] 411111 \ Machine: @Q 
7 \ 
/ \ 
4? 7? 27 2? ™N 
7 \ 
7 5 5 5 SN 
4 \ 
v \ 
/ 9 3 9 Ball # 
4 \ 
4 8 8 8 ~ 
Fa \ 


LSC C\N\N\\\N\\NN 
LOSS CS L\\\\NN\N\NN 
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1234567893 
4 \ 
7 ] i: 4 \ 
Z \ 
42K 2 KX BN Human: 141 
v4 \ 
“ Jd] i11i111 \N Machine: @ 
7 \ 
7 \ 
4? ? 2? 2? ™ 
4 \ 
“35 5 o.. <a oN 
7 \ 
7 \ 
f 3 S 3 N Ball # 
4 \ 
‘ 8 8 8 N 
4 \ 


LSS CO \\\\\NN 
C007 C\N\\\\\NN 


Here’s the listing to Bagatelle: 

1@ REM BAGATELLE 

2@ GOSUB 1888 

38 GOSUB 5aa 

4@ FOR Y=] TO S:PLOT 25,14,STR$CY) 

5@ FOR X=1 TO 2 

6@ IF X=2 THEN PLOT 25,14,STR$CYJ+" Me" 
61 IF X=2 THEN K=INTCRNDC1)X39)+1:PLOT 1, 
21,"I will start with " 
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62 IF X=2 THEN PLOT 19,21,STR$CK):2AP:WA 
IT 188 
63 [IF xX=2 THEN PLOT 1,21, ° 


7@ IF X=] THEN PLOT 28,14,"You" 

71 IF X=1 THEN INPUT "Which No. to start 
with "3K 

72 IF X=1 THEN IF K<] OR KS THEN 71 

8@ PLOT 2+K,@,STR$(K)J:PLAY @,1,1,20 

85 PLOT 4,@0,"123456783":PLOT @,8,20 

3@ BA=K+3:EA=BA 

1@@ BD=1-:ED=1 

118 IA=1 

120 ID=1 

13@ PLOT EA,ED," ":EA=BA:ED=BD 

15@ PLOT BA,BD,"2" 

168 FL=@:SA=SCRNCBA; BDt1 ) 

170 IP SA<D>S2 THEN ClCXJH=CCAI+SA-49:7F LATS 

GOTO 228 

18@ SA=SCRNCBAt1, BD) 

130 IF SAQ32 THEN. COXJ=CCKIFSA=432FEH1* 

GOTO 22 

200 SA=SCRNCBA-1,; BD) 

21@ IF SA<>32 THEN CCX)=CCXI+SA-48 -FL=1 

220 IF FLAG=1THEN PLAY1,1,1,2@:IFRNDC1)> 

. STHENIA=-1A:TD=-ID 

225 PLOT 28,4,STR¢$C(C1IJJ:PLOT 28,6,STRE#CC 

(2) 3 


230 BD=BDtCIDXRND(C1))+@.75 
235 IF BA<3 THEN JA=-IA:BA=5 


236 IF BD<1 THEN ID=-ID:BD=3 
237 IF BAD 1S THEN IA=-IA:BA=13 
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24@ BA=BAt+ CIAXRNDC1)3) 

25@ IF BD<19 THEN 134 

260 PLAY 1,0,2,1@8 

270 GOSUB 58@ 

280 NEXT X,Y 

38@ PLOT 5,21,"The winner is" 

31@ IF CC13<CC2) THEN PLOT 19,21, "the ma 
chine" 

320 IF CC2)<CC1)I THEN PLOT 19,21, "the hu 


" 


man 
332° IF “CL232C01)> THENPLOT 19; 215%>° A 2 
RAW --" 

49@ EXPLODE :END 

5@@ CLS 

5@1 PLOT 4,@8,"°123456783":PLOT 21,4, "Huma 
n: "+STR$(CC1I) 

5@2 PLOT @,98,2@ 

5@5 PLOT 19,6, "Machine: “+STR#¢CCC2)) 

206 PLOT 19,14,"Ball #" 

518 FOR Q=1 TO 19 

592@ PLOT 1,Q,"7":PLOT 16,Q,°X" 

525 PLOT @,Q0,17:PLOT 18,Q,23:PLOT 17,0,2 
526 PRINT 

53@ NEXT Q 

535 PLOT 1,18, °474777777/\\\\\\\\" 

536 PLOT @,18,17:PLOT @,19,17 

5937 PRINT :PRINT:PRINT:PRINT:PRINT 

538 PLOT18,18,23:PLOT18,19,23:PLOT1/, 18, 
2:PLOT17,19,2 

54@ PLOT 1,19, "47477777/\\\\\\\\"" 

55@ PLOT 5,;2,;"1 1 1":PLOT 3,4,"2@ X @ 
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x eh 
360) PLOT -4,6,.°). Pi 1" 
376 PLOT -S54e"7> -2 ae 
O08 PLOT Sy.2is "5 3 a: 23" 
5398 PLOT 6,14;,"39 3 QS" :PLOT 4,16,"S8 
8 8" 
6@@ RETURN 
1008 FOR A=46080+(8xXCASCC"8"IIITO 46080+ 
(S*¥CASC EME" I4+7) 
101@ READ B 
1820 POKE A;B 
10308 NEXT A 
1848 DATA 12,18, 33;45,45,33,18;,12 
185@ DINC(2) 
1@6@ PAPER @:INK 6:CLS 
1070 RETURN 


HISSING SID 


In this program, by Paul Toland, you are in control of a snake, 
called Sid, and you must try to grow your snake as long as 
possible, by directing it to the asterisk signs (*) which it eats. 
However, the *’s remain on the screen for a decreasingly short 
time, after which they turn into poisonous plus signs (+ ). Poor 
Sid will die if he eats a + sign, or if he runs into the border or 
himself. 


Once the game is over, you will be told how long Sid managed 
to become. 
Here are a few sample printouts for Hissing Sid; 
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CAPS 


HHHHHHHH 
# 


re#rrHRrt 
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CAPS 
# + 
# 
# 
# # 
# + # 
# # 
HHHHHHH 
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CAPS 
+ 
+ + 
‘ + 
x + 
+ 
+ + 
+ + 
tb 
~ 
+ 
+ 
# 
a # 
+ + 4 # 
+ ++ H+ ba + 
+ $#HHHHHH + 
+ + 
++ + 
+ + 


Here 


12 
208 
36 
40 
17) 
68 
70 
8 
3a 
120 
110 
120 
138 
131 
148 
158 
Isl 
16a 
=OX 
161 
=OY 
165 
N 2 
178 
188 
182 
185 
1) 
130 
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’s the program listing: 


REM HISSING SID 
GOSUB 400 
X$=CHR$C1I@I+CHRSC11) *L=2 
Y$=CHR$C1OI+CHRSC1B) 
PAPER @:INK 6:CLS 
MX=INTCRNDC 13X38) 
MY=INTCRNDC1)*26) 
IF SCRNCMX,MYI<>32 THEN 60 
PLOT MX,MY, "x" 
PLAY 1,132,208 
FOR I=] TO 3@-L 
OX=ASC(XK$) 
IF DEEKC783)=48255 THEN OX=OX+t1 
IF DEEKC783)=48351 THEN OxX=0x-1 
OY=ASCC(Y$) 
IF DEEKC783)=48375 THEN OY=O0Y-1 
IF DEEKC7833=48313 THEN OY=OYr1 
IF OX=ASC(X$) AND OY=ASCCY$) THEN OX 
+OX-ASC(MIDS CXF, 2,13) 
IF OX=ASC(X$) AND OY=ASCCY$)J THEN OY 
+tOY-ASC(MIDSCY$, 2,1)) 
IF OX<@ OR OX>38 OR OY<@ OROY>26 THE 
42 
IF SCRNCOX,0Y)=42 THEN L=Ltl 
IF SCRNCOX,O0Y)J=43 HEN 260 
PLOT Ox,OY, "#" 
PLOT ASC(MIDS$(X$,L,13),ASCCMIDSCYS,L 
ag08'® 


XA$=CHRSCOXI+LEFTSCX$,L) 
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208 Y$=CHR$COYI+LEFTS(Y$;,L) 

21@ NEXT I 

228 IF SCRN(MX,MYJ=42 THEN PLOT MX,MY, "+ 
238 GOTO 6@ 

24@ PLOT 1,@,"YOU CRASHED INTO THE SURRO 
UNDING WALL-" 

258 GOTO 278 

26@ PLOT 1,8,"YOU HIT SOMETHING YOU SHOU 
LD NOT HAVE-" 

278 PLOT 1,2,"AFTER GROWING TO "+STRS$(LJ 
28@ FOR A=? TO @STEP -1:PAPER A:WAIT 20: 
NEXT A 

29@ PLOT 7;25,"PRESS ANY KEY TO PLAY AGA 
IN" 

foo AP KEVS<e"": -sLHEN: GOTO 235 

300 GET AS 

348: (GOTO: 30 

400 FOR A=46080+(8XASC("#")IITO4F6080+(8XA 
SCC"#H")+7) 

41@ READ U 

420 POKE A,U 

430 NEXT A 

44@ RETURN 

45@ DATA 51,51;63,18,18,;63,51;5] 


ALIEN ESCAPE 


In this program, by Daniel Mills, you have to stop the aliens 
from getting past your command post. If you let more than 5 
aliens escape, they will invade earth killing millions of innocent 
people. Your ship will destroy all aliens on contact, so you must 
run into them using the cursor keys to control your movements 
left and right. : 
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This program uses more UDG’s than we have ever encountered 
so far. It is worth typing it in just to see them. 


CAPS 
SCORE: 358 ESCAPED ALIENS: 3 
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SCORE: @ ESCAPED ALIENS: @ 
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Here’s the listing for Alien Escape; 
1@ REM ALIEN ESCAPE 
2@ PAPER @:INK 6:CLS:GOSUB 58a 
25 PRINT CHR$(6) 3;CHREC17) 
3@ FOR A=] TO 27O@:PLOT RNDC1)*38+1,RNDC13 
X26+1,"." NEXT A 
4@ FOR A=] TO 26?PLOT @,A;, INTCRNDC1IX7 3+ 
L?NEXT A 
45 PLOT @,28,3:PLOT @,19,} 
5B X=10:S=6 : 
66 WAIT 108 
7@ P=0:MP=G 
8@ S=StP ~ 
98 PLOT 1,0,"SCORE:"+STR#ECSK1B) 
106 P=] 
11@ N=13 
12@ Y=19 
138 C=a 
14@ PLOT x,26," ":PLOT X,19," " 
145 PLOT 1,@,"SCORE:"+STR$(SK1QG) 
146 PLOT 15,8, "ESCAPED ALIENS: "+STRSCMP) 
1586 IF DEEKC783)=48351 AND *>1 THEN X=x- 


16@ IF DEEK(783)=48255 AND X<38 THEN X=% 
1 

17@ PLOT *,20,"$":PLOT X,19,°#" 

(S6-PLOT NyPy* >™ 

182 PLAY 13,1,1;Px12 

185 PLOT @, INTCRNDC1)*127)+1, INTCRND(1)*? 
J+] 

19@ IF RNDC1)J>.65 THEN N=N+tINTCRNDC1])X3- 
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ie 

200 IF N=1 THEN N=2 

216 IF N=38 THEN N#3? 

220 =Pt] 

220 LF P225. THEN MPPs] P=] 

226 IF MP2S° THEN GOTO: 768 

230 PLOT N;P,"%" 

249 IF N=X AND CP=2@ OR P=193 OR P=18) TH 
EN 688 


2508 GOTO 148 
S@8 FOR A=46080+(8XASCO"#"))I TO 46888+(8 


KASC("*%" J +7) 

51@ READ US:POKE A,US:NEXT A 

220 RETURN 

538 DATA @,8,8,4,14,31,31,31 

548 DATA 4,4,21,21,21,315,21,4 

55@ DATA 51;,12,18,63,45,0,9,8 

606 S=St? 

610 PLOT N,P," ” 

620 P=] :-N=10 

638 GOTO 14@ 

706 EXPLODE :CLS 

2@S PRINT:PRINT:PRINT"SCORE :"S 

7@6 PRINT :PRINT ?:PRINT 

7218 PRINT" You have let two many aliens e 
scape @" 

720 PRINT 

730 PRINT"They are now taking over the w 
orld, 

740 PRINT 


CHAPTER SIXTEEN 137 


POE PRINT Meee PRESS ANY KEY FOR NEX 


T MISSON 
760 IF KEY$<>"" THEN 768 
?7?@ GET AS:RUN 


FOLLOW ME 


Inth 


is game, you have to duplicate the colour and tone pattern 


generated by the computer. There is a catch. At first, you will 


have 


only one colour/sound combination to remember. Then 


the computer will add a new combination to the first one, and 


play 
time 


You 
to 4, 


both. The sequence will become longer and longer each 
you succeed in remembering the sequence. 


copy the computer’s pattern by using the keys numbered 1 
(there is a quick reference chart displayed each turn to aid 


you). There is a high score feature. 


12 
20 
38 
48 
58 
62 


REM FOLLOW ME 
REM TIM HARTNELL/DANIEL MILLS 
H=@:PAPER @:INK 2:CLS 
DATA 2,4,5,6:RESTORE 
CLS 
Ags"" 
S=0 
D=128 
M$="H#H#HH" 
PRINTM$ 3 TABC 25 CHR$(27)"CSIMON" 
PLOT 1,3, "SCORE :"+STR$(S) 
PLOT 17,35? 
PLOT 18,3,"HIGH SCORE :"+STR$C(H) 
PLOT @54;2 
PLOT 1,4, "-------------------------- 


138 
162 
172 
182 
132 
208 
212 
228 
230 
242 
CAs, 
245 
258 
268 
278 
28D 
238 
30a 
312 
328 
330 
342 
350 
368 
378 
388 
398 
4a 


419 
420 


432 
448 
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AS=A$+CHR$CINTCRNDC13*4)+1) 
FOR T=1 TO LENCAS$) 

FOR A=1 TO ASCCMID$CA$,T, 133) 
READ B 

NEXT A 

RESTORE 

PLOT 8,11;,;B+trl6 

PLOT @,15,B 

PLOT CASCC(MID$CA$,T,133I,;15,ASCCMNIDS 
ie ee 

PLAY 1,98,1,;,90 

MUSIC 1,5,ASCCMID$SCA$,T,13)+15,15 
WAIT 20 

PLAY @,9,9,9 

PEOT O3 115-16 

PLOT CASCCMIDSCA$,T,13I3),15," 
NEXT T 

RESTORE 

FOR A=1 TO 4 

PLOT AX6,15,MID$CSTRSCAI; 13 
READ B 

PLOT AX6,16,Bt16 

NEXT A 

PLOT AX6,16,16 

RESTORE 

FOR T=1 TO LENCAS$) 

FOR A=] TO Dx3 


I$=KEY$ 
IF I$>"@" AND I$<"5" THEN 688 


NEXT A 
M$=MIDSCMF, 2) 


450 
46a 
478 
484 
438 
58a 
518 
320 
534 
34@ 
558 
64a 
40 

612 
620 
638 
64a 
650 
668 
672 
680 
638 
700 
718 
828 
812 
828 
2) 

830 
IN" 
848 
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INK 3 
PLOT 35,0,"N 7" 
PLOT 35,1," ~z " 
PLOT 35,2," 7 " 
PLOT 35,3,;'7 \N* 
MUSIC 1,0,;7,15:WAIT 20 
MUSIC 1,0,1,15-WAIT 5d 
PLAY 8,8,8,@ 
WAIT D:CLS 
IF M$<>"" THEN 178 
GOTO 8@a 
IF VALCI$) <> ASCCMIDSCAS,T, 133 THEN 4 


MUSIC 1,2, ASCCMNIDSCAS$,T,1)3X2,15 
WAIT 20 

PLAY 8,8,0,@ 

IF KEY$<>"" THEN 648 

NEXT T 

CLS 

S=S+] 

D=D-S/5 

IF D<@ THEN D=@ 

IF H<S THEN H=S 

GOTO 1080 

ZAP 

PLOT 1,5,"SCORE:"+NID$C(STR$CS);2) 
PLOT 1,8, "HIGH SCORE :"*+MIDSCSTRS$CH), 


PLOT 1,17,"PRESS ANY KEY TO PLAY AGA 


IF KEY$<>"" THEN 848 
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Su GET AS 
868 GOTO 404 


ECOLOGICAL DISASTER 


Here’s your chance to make decisions of national importance. 
The program explains the starting scenario. 


See if you can get the lake to survive longer than 10 weeks. 
1@ REM ECOLOGICAL DISASTER 
2Q@ RAN=RND(1) -BES=@ 


25 PAPER 
38 PRINT 
dvisor” 
4@ PRINT 
5@ PRINT 
68 PRINT 
new" 

7@ PRINT 
and" 

B88 PRINT 
98 PRINT 


@:INK 3:CLS 
"You are the Prime Minister’s a 


“on natural resources,” 
"Part of your job is to stock a 


“lake in the Midlands with fish 


“eels,” 


190 PRINT"Ail very simple, you may think 


But," 


118 PRINT"there is a probtem, The fish 


and the" 


120 PRINT“eels are mortal enemies,” 


138 PRINT 


148 PRINT" You must select starting numbe 


rs of" 


158 PRINT"{ish and eels which you think 


wilt" 
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160 PRINT"ensure the longest posssible gs 
urvival” 
17@ PRINT"of the lake.” 
18@ PRINT 
19@ PRINT" Press RETURN when you are r 
eady" 
200 GET A$:CLS 
21@ INPUT "Enter the starting number of 
eels Ciess than 10@)"3E 
ELS 
220 IF EELS>1@@ OR EELS <1 THEN 218 
23@ INPUT "Enter the starting number of 
fish Cless than 100)" 5F 
ISH 
24@ FISH=FISH’3 :-WE=@ 
25@ FOR G=@ TO 2:FOR Gl=1 TO 12 
2680 X=INTCRNOC1IX5)+16 
27@ PLOT11,;26;,; "THE LAKE IS EVOLUING" 
288 PLOT32,26,16 
2398 PLOT1@,26,% 
38@ MUSIC 1,G6172,G+t1,15-MUSIC 1,G,G1,15: 
MUSIC 1,G172,;%-190,15 
318 WAIT G+tGl 
320 NEXT G1,;,G 
338 PLAY 1,8,9,@:MUSIC 1,8,18,15:WAIT 58 


348 MUSIC 1,8,1,15:WAIT 75:PLAY @,0,9,2 

358 WE=WE+1:CLS 

36@ PRINT CHR$(€27) 5°T" SCHRSC27) 3°L 
REPORT TOoPsa 

378 PRINT 
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PRINT 

PRINT “At the end of week "“jWE 
FELS=EELS+( (C8XEELS-EELS*F ISH’3)XRAN) 
FISH=F ISH+(€ C4XF ISH-F ISHXEELSJx@, 1) 
PRINT 

PRINT 

PRE eae teehee eS ears er em 


iw 


IF FISH<@ THEN FISH=0 

IF -EECS<@ THEN: EECS=2 

F=F ISHX1@:PRINT"FISH:"INTCF) 
E=EELSX1@:PRINT"EELS:"INTCE) 

IF KEY$<>"" THEN 461 

GET AS 

If EELS<2 OR FISH<2 THEN CLS2:GOTO- 4 


GOTO 258 

IF WE>BE THEN BE=WE 

FOR A=1 TO 280 

*=INTCRNDC1)*20)+1 

Y=INTCRNDC1)*25) 

PLOT X,Y,"ECOLOGICAL DISASTER" 
MUSIC 1,8,0Y73)+1,15 

PLAY 1,8,8,@ 

NEXT A 

PAPER 1 

EXPLODE :CLS 

PRINT :PRINT ?PRINT=:PRINT=:PRINT ?PRINT 
PRINT"IT’?S ALL OVER NOW, YOUR LAKE L 
A1S* 
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33@ PRINT"LIFE" -PRINT 

68@ PRINT:PRINT' YOUR LAKE STAYED ALIVE F 
OR "WE"WEEKS" 

614 -PRINT-PRINE THE BEST SG: FAR IS: “SE 
628 PRINT:?PRINT=PRINT"PRESS RETURN TO CO 
NTINUE, ” 

B30 JF KES" THEN: 6398 

648 GET AS-GOTO 25 


CASUALTY 


In this program written by Paul Toland and Daniel Mills, you 
are ona minefield which is full of casualties. You have to pusha 
wheelchair around the minefield, avoiding the mines and 
electrified fence, to collect each casualty and bring him or her 
to the hospital (shown as a ‘ +’). The wheelchair can only carry 
one casualty at a time. 

18 REM CASUALTY 

2@ REM PAUL TOLAND 

38 REM DANIEL MILLS 

35 PRINT CHR$C6) 5;CHREC17) 

4@ GOSUB 48a 

5@ INK 7:PAPER 4:CLS:PRINT :PRINT 

BQ PRINT" XXXXKKXKKXKKRKRARAKA AKAM AKARKM KKK KH AM MM 
RRXAKKXK | 

7@ FOR A=3 TO 23:PLOT 1,A,"X":PLOT 36,A; 
ny 

BQ NEXT A 

9@ PLOT 1524, "XXXXKXXXXXXXXXKXKXARKKKAARAAA 
KAXRKAAKAK MK 

95 FOR I=] TO 2@:PLOT INTCRNDC1)X34)t2, | 
NTCRNDC1)*26)+3,"°%" 
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396 NEXT I 
188 FOR I=1 TO 28 

11@ X=INTCRNDC1)*34)+1 

12@ Y=INTCRNDC1)*16)+7 

13@ IF SCRNCX,Y)<>32 THEN 112 
14@ PLOT X,Y, "& 

15@ NEXT I 

162 CAR=2 

178 RET=@ 

18@ X=18 

199 Y=4 

288 A=2 

218 D=0 

228 PLOT X,Y," ° 

238 PLOT 18,3, "+" 

24@ I=DEEK(783) 

25@ IF I=48351 THEN A=-1 :D=0 
268 IF I=48255 THEN A=1:D=@ 

2708 IF I=48319 THEN A=@:D=1 

280 IF 1=48375 THEN A=@:D=-1 
285 MUSIC 1,Y/S, CRET+2)72, 12 
290 X=KtA:Y=Y+D 

388 CH=SCRN(X, V3 

318 PLOT X,Y,35+CAR 

315 PLAY1,9,9,@ 

32@ IF CH=37 THEN 52@ 

338 IF CH=88 THEN 520 

34@ IF CH=38 AND CAR=1 THEN 54@ 
35@ IF CH=38 THEN CAR=1 

36@ IF CH=43 AND CAR=1 THEN CAR=@:RET=RE 


T+] 


>TF RET=2@ THEN 568 
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378 WAIT 1 


388 GOTO 228 

400 READ AS$:IF AS="2" THEN RETURN 

416 FOR J=@ TO 7? 

42@ READ N-POKE (C46080+8xXCASCCASIJI+II,N 
430 NEXT I 

448 GOTO 408 

450 DATA #;48,; 48; 48,56, 48, 48;,55; 54 

460 DATA $,48, 48, 43,59, 43,43,55; 54 

470 DATA &,9,;0,9,9,49,49,63,0 

488 DATA %,0,0,0,90,12,38,63,63 

438 DATA 2 

5906 PLOT *,Y,"%" 

5S@5 EXPLODE 

SIG PLOT lats” “YOU ALT AMINE Sa eere" 
515 GOTO 680 

32@ PLOT 1,1," zzzzZZZAAAAAPPPPPPPE2oe" : 
ZAP 

538 GOTO 680 

540 PLOT 1,1," THE WHEELCHAIR IS OVER-LO 


ADDED 22" 

55@ EXPLODE -GOTO 688 

56@ PING 

979: PEOT s-t5™ TOU? VE DONE It Seo cegerss 


Se eee eae 

6@@ PAPER @:INK 4 

618 PLOT 39,4,"YOU SAVED "+MIDSCSTRSCRET J) 
e220 OUT OF. .28) 2% 

615. IF KETSO"” THEN 615 

62@ GET As 

638 GOTO 58 
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BOMB RUN II 


In this, the last program in the book, you must blow up the city 
to clear a runway for a safe landing. Press the space bar and a 
bomb will be dropped, if you are a good shot it will destroy one 
of the tower blocks. (Go for the tall buildings first). 


An interesting ending has been put on this game, so you have an 
extra incentive to succeed. 


REM BOMB RUN I] 
REM DANIEL MILLS”PETER SHAW 


12 
20 
38 
4 
38 
68 
70 
BQ 
38 
108 
112 
128 
138 
140 
158 
168 
178 
188 
138 
200 
218 
215 
2208 
NDI 


GOSUB 
GOSUB 


3888 
8888 


FOR A=@ TO 25 


FOR B= 


1 TO 35 


PLOT B;,;A;,° #4" 
IF KEY$=" ° THEN GOSUB BOMB 
IF SCRNCB+3,A8)<> 32 THEN GOTO CRASH 


WAIT 


3 


PLAY @,1,1;,12 


NEXT 
PLOT 
NEXT 
PLOT 


B 

B,A, ° 

A 

3,26, "#$"-PLOT 5, 26,3 


FOR A=6 TO 15 


PLOT 
WAIT 
PLOT 
WAIT 
NEXT 
PLOT 
PLOT 
NG" 


A; 26,° *° 

3 

A, 26," &* 

3 

A:PING 

A; 26, "x" 

4;4,"MISSION COMPLETE > SAFE LA 


238 
240 
250 
268 
328 
312 
328 
338 
348 
A=At 
345 
346 
347 
358 
368 
378 
388 
398 
1088 
1818 
1828 
1832 
1840 
1058 
1868 
1878 
MID$ 
1888 
18398 
1102 
1110 


CHAPTER SIXTEEN 147 


PLOT Zvi PRESS AOKE® PLAY AGRI” 
IF KEY$<>"" THEN 248 

GET A$ 

GOTO 40 

REM BOMB 

B1=B 

FOR DR=A TO 25 
PLOT Bisley 72-" 

B=Bt1:IF B=36 THENPLOT B,A,”" "?B=]: 
] 

IF A=26 THEN 158 
PLAY @,15,1;20 
WAIT 1 
PLOT B;,A," #$" 

IF SCRNCB+3,A)<>32 THENGOTO CRASH 
FEOT 61s ORs" 
NEXT DR 

RETURN 

REM CRASH 

EXPLODE 


FOR L=A TO 26 
PLOT.B,L," #$":PLOT B,L-1,;"  “ 
WAIT L 
SHOOT 
NEXT L 


PLOT4,3, "YOU HAVE CRASHED INTO A "+ 
CSTR$C26-AJ;,;2)+"@ FOOT" 

PLOT)2,5; "TOWER: BLOCK 8” 

EXPLODE 

IF KEY$<>"" THEN GOTO 1180 

GOTO 238 
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8018 
8820 
8232 
8840 
8858 
8064 
BB?7B 
8082 
8898 
3088 
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PAPER @:INK 4:CLS 
BOMB=388 -CRASH=1880 
FOR LO=1 TO 35 
H=INTCRNDC1)X*1@8)+15 
PLOT LO;H,"C" 

FOR P=H+1l TO 25 
PLOT BOs," 2" 

NEXT P 

NEXT LO 

RETURN 

FOR A=46088+8x(ASCC"#"I) TO 46880+8 


KCASCO"K" I I+7 


3818 
38208 
3832 
3031 
3049 
3858 
3869 
3872 
3888 
3838 
3188 
9118 
3128 


READ N 

POKE A;N 

NEXT A 

PRINT CHRS$(6) ;CHR$C17) 
RETURN 

DATA 49,56,57,63;63,15,16,9 
DATA 62,40, 18,58,63,58, 34,16 
DATA 6,6,4,8,8,12,12,12 

DATA 6;,6,4,14,8,12,18,18 
DATA @,18;, 18, 12,30, 380, 30,12 
DATA 8,12, 38,63,45,63,45,63 
DATA 45,63, 45,63, 45,63, 45,63 
DATA 14,14,4,31,4,10,17;0 


CHAPTER 
SEVENTEEN 
USING THE SYSTEM 


This is the last chapter in the book, and in it we’ll discover 
about things such as DEEK, DOKE, CALL and USR. 


As you may have gathered, the computer’s memory is like a lot 
of matchboxes with numbers in. At the very top of this pile of 
matchboxes (the top 16383 matchboxes to be precise), is what’s 
called ‘ROM’. ROM stands for Read Only Memory, that is you 
can look at it, but you can’t alter it. The computer uses this to 
interpret what you are telling it to do, and to read the keyboard 
etc. 


Below the ROM there are things like the SCREEN, i.e. every 
character displayed on the screen at any one time is stored in its 
own location of memory. Each character has its own little 
match box. These areas of memory can be changed, so the 
matchbox is being continually opened, filled, closed, opened, 
emptied, etc, etc. This area of memory is called RAM, Random 
Access Memory. Which means you can open any matchbox 
you like. You don’t need to unpile the lot to get to any one box. 
You can, as it were, open them from the side. 


PEEK 


To look at what’s inside any matchbox from @—65535, you use 
PEEK (m), where ‘m’ is the matchbox you are talking about. 
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To put something inside a matchbox use POKE m,n. ‘m7’ is the 
location you want to put your number, and n is your number, 
(this must be between @—255). 


DEEK 


As @—255 is not a very large number range, DEEK is used to 
give a Double pEEK. DEEK(n) gives the contents of the n 
matchbox plus 256 times the contents of the next one. i.e. 
DEEK (n) gives; 


PEEK(n) + 256*PEEK(n + 1) 


DOKE 


DOKE is a Double POKE. DOKE m,x puts the whole number 
(x/256) into m+ 1 and the remainder goes into m, 1.e.; 


POKE(m + 1), INT (x/256): POKE m,(x — PEEK(m + 1)) 


CALL 


Once you have written a machine code program (don’t worry 
about machine code just yet), CALL x transfers, or RUN’s 
your machine code program. 


DEF USR 


Defines the start of the machine code routine. 


FRE 


PRINT FRE(@) returns the amount of matchboxes left empty, 
i.e. how much memory you have left. 


To find out more about ‘machine code’, read Chapter 13 of the 
Oric programming manual. 


APPENDIX: USING 
MATHS 


Here is a summary of the mathematical symbols on your 
computer. 


USUAL SYMBOL COMPUTER SYMBOL 
+ (plus) + 

— (minus) _ 

Xx (multiply) * 

+ (divide) / 


M® (raise to power) M{n 
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